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NEWSLETTER 17 Westmeerbeek, augustus 83 


Beste leden, 


Het zal zowat drie jaar geleden zijn dat de eerste publicatie van DAInamic de 
deur uitging. Een sober gestencild papiertje, verspreid via de firma DAI, kon- 
digde aan dat er een gebruikersclub gesticht was rond de DAI personal computer. 
Het gebrek aan informatie omtrent dit revolutionaire toestel was mede de aanlei- 
ding geweest om contact te zoeken met medegebruikers. Het was de bedoeling 
mensen uit de regio te vinden om samen onze zo beruchte computer te leren 
gebruiken. De enorme bijval uit het buitenland,  vooral Nederland tijdens de 
eerste maanden, was voor onze kern dan ook een enorme en prettige 
verrassing. De gebruikers van het eerste uur zullen zich zeker nog herinneren 
welke moeilijkheden er moes- ten overwonnen worden om een DAI computer in zijn 
bezit te krijgen. Velen van ons moesten het dan nog stellen met een BK-versie 
zwart-wit, zonder sound. Rond die tijd was het voor DAI een enorme tegenvaller 
dat de toestelien voor de TELEAC- cursus niet tijdig konden geleverd worden, 

een enorme kans op ruime promotie ging hierdoor verloren. We mogen stellen dat 
alle toestellen die toen in productie genomen werden reeds lang op voorhand 
verkocht waren en de TELEAC-affaire was vlug vergeten. Helaas was de armslag 
van DAI te klein en kon de productie niet opgevoerd worden om aan de enorme 


aanvraag te voldoen. In Frankrijk , England , Duitsland en Italie was er 
zeer veel belangstelling en DAInamic werd overspoeld met aanvragen in de 
verschillende landstalen. Het lag dan gek voor de hand om af te stappen van 


het uni-Nederlands en zodoende zijn de verschillende vertaaldiensten op gang 
gekomen. Erg spijtig en onzeker waren de gebeurtenissen omtrent het 
faillisement van de toenmalige firma. We zijn dan ook tevreden dat er 
uiteindelijk een gezonde overname gekomen is : INDATA was de naam. Nieuwe 
mensen, nieuwe politiek : het is ondertussen duidelijk geworden dat er meer 
belangstelling was voor de thuismarkt. Deze opstelling heeft er voor gezorgd 
dat het aantal Belgische leden reeds meer dan 456 bedraagt ! In deze korte his- 
toriek mogen we een paar namen zeker niet vergeten : JC Camby, die als een ware 
diplomaat maar steeds weer de ongeduldige kopers en wachtenden moest te woord 
staan, Frank Druijff, die spoedig de Belgische kern kwam vervoegen, Freddy De 
Raedt, die zorgde voor programma’s als FGT en Assembler en die ook de mensen 
die meer wilde weten over machinetaal te woord kon staan, Hans Wegman zette 
zijn mijlpaal іп het DAIgebeuren met de ontwikkeling van MDCR, Jan Boerrigter 
die met zijn collega’s er voor zorgde dat de kardware-geheimen уап DAI voor 
ieder ontbloot werden еп dan verder ging met zijn  Firmware-manual. Bruno Van 
Rompaey nam de onderwijsmensen op sleep en schudde diDAIsoft uit zijn mouw... 
Vele naaste en verre medewerkers en correspondenten moeten we ongenoemd laten 
wegens plaatsgebrek. Allen samen hebben zij er voor gezorgd dat DAIpc zijn 
plaats op de turbulente computermarkt heeft weten te behouden en nog een gezonde 
toekomst voor zich heeft. We danken U voor de vele plezierige contacten , 


tot volgende keer, 


Dear members, 


DAlnamic is 3 years young, this short historical review is too hard (and too 
long) to translate, you will find a translation in one of the next issues. To 
celebrate our club-birthday, we have a special software-offer, see the card in 
this issue. 


yours sincerely, 


Wilfried Hermans 


DAInamic 83-17 - 215 


See | 


NEWSLETTER 17 


U. 215 Remark | Redactie 
Е- 216 Inhoudstafel-contents 
SCH 217 Software contributions F.Druijff 
Fr] 218 Videotex in Belgium PUB 
EA 219 14 couleurs charcateres A.Mariatte 
| 220 cassette tape lister D.Assink 
O 224 Programmeer technieken F.druijff 
О 228 The EDITOR story J.Boerrigter 
231 corrections firmware manual J.Boerrigter 
| 232 8080 cassette routines SDK-85 J.van 001 
а 254 bootstrap for screen files W. Dewinter 
D 244 Programmes mathematiques F.Duluins 
Q 247 Programgenerator N.Looi je 
Eri 248 Shadeshape H.di Ciris 
SCH 249 | INDATA news INDATA 
FA 250 AZERTY user J.Schepens 
292 comparison between BASIC & mlp G.Uliana 
253 RUN linenumber BASIC V1.0 (t) C. Dufour 
T 254 new PADDLE-check routine C. Dufour 
up 256 screen-buffer buffer screen demo C.De Bont 
Hi 257 ON ERROR GOTO demo C.De Bont 
uH 258 DAI VIDEO SCREEN RAM (translation) UK 
ЕЗ 264 programming techniques (t) UK 
Т 267 CONVERSION APPLE-ATARI-DAI (t) UK 
ү P 269 TV-tennis REM’s (t) UK 
i 3 270 . cursus microprocessoren part 1 A.Beuckelaers 
ђ i 276 Shape-design W.Hermans 
i 1 278 Copieervariaties B. Vingerling 
il : DAInamic subscription rates : 
H Benelux. + 900 Bfr 
S d Europe : 1000 Bfr 
8 А Outside Europe : 1400 Bfr 
* چ‎ (Air Mail) 
p pay to : Dainamic SUBSCRIPTIONS 
E ч B.Van rompaey * by check or 


ж on Bancaccount nr 250-0045353-74 
of Generale Bank Leuven c/o DAInamic 


Bovenbosstraat 4 
3044 HAASRÜDE-BELGIUM 


216 








Software contributions 


SOFTWARE =< CONTRIBUTIONS ~ INZENDINGEN ~ BEITRAGEN >- SOFTWARE 


Its holyday-time. We want to get some rest. Please have some patience if you 
are waiting for some answer or reply. 


Some questions asked by more than one will be answered right now. 


1- 0: Is it possible to protect a program against unautherised copying ? 

A: No. It is always possible to copy a program but we can make it rather 
difficult to do so. If you have a program of which you think it's good 
enough to be used by the club but would need some protection you can 
send it to us with this remark. If we agree, we will take care for the 
protection. The methods of protection we do use cannot be explained be- 
cause someone who wants to break the protection will then be provided 
by just the facts he wants to know for this breaking. 

However there are some protective measures you can do yourself; these 
are rather simple but gives the person who wants to change or copy the 
program more work to do. The measures will be discussed in ane of the 
following issue's of DAInamic. 


2- 0: Can I send my program for just comment. So I don't want give permission 
to use it in any way. 


A: Yes. But if the program is good we will try to change your mind. 


Can I see a program before buying it 
Yes. On the meetings where DAInamic is present with software you can see 
the new software and ask questions about it 


4- Q: Can I have a program sometime before deciding to buy. 
A: No 


5- 0: Do I get a garantee if I send you software that you don't give it away? 
A: The software that we receive is only distributed among those members of 
which you can expect answer. We automaticly assume that we can use the 
software for our library. If you tell explicity it is not to be used we 
obey. You can even ask for no distribution at alls in that case your 
software will stay with the person you send it to. 


6- Q: Can I order software on floppy? 
A: On this moment no. The floppy is still so uncommon that it would cost 
much to do so. Maybe in near future as many peaple have a floppydrive. 


7- 0: How long will it take to get an answer? 

А: Normaly (no holydays) you will have a letter notifying you that we did 
receive your software within a week. In that letter will be information 
on the person answering you. I try the completely handle it within two 
month, but that didn't work out always. 


HE E HE JEJE C EEE EE IEEE XC IC HK KHE EIC CIE EE Е IEEE E CIE IE E HE ICI ЗЕ EE ECC CC E EE E JE E ЧЕ УЧЕ DE E IEEE E 2255203 
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De staatssekretaris van 
PTT, mevrouw Paula 
d'Hondt heeft half 
april de modem vrij- 
gegeven om zich niet 
tegen de technische 
evolutie op dat gebied 
te verzetten. Daarmee 
heeft zij dan ook een 
einde gemaakt aan een 
toestand, die door de 
gebruikers van het vi- 
deotex-systeem als een 
klucht werd ervaren. 
De modem van de RTT 
huurde iedereen wel, 
maar gebruiken was 
een tweede. De grootste 
rem op de ontwikkeling 
van viewdata in Belgié 
is daarmee in ieder 
geval weggenomen. 
Blijft alleen nog het 
relatief kleine рго- 
bleem van de telefoon- 
kosten. | 


"Wat is interaktieve videotex?" 
vraagt men zich af in een publi- 
katie van de RTT. "Videotex is 
een kommunikatiesysteem dat 
o.a. toelaat informatie, opgesla- 
gen in een komputergeheugen te 
verspreiden en op te vragen. 
Daartoe heeft de gebruiker een 
telefoon nodig evenals een ter- 
minal bestaande uit een beeld- 
scherm еп een klavier. (...) In- 
teraktieve videotex is een sys- 
teem met individuele tweeweg- 
transmissie dat aldus een dia- 
loog tussen de gebruiker en 
komputer toelaat. De opslagmo- 
gelijkheden van het hele sys- 
teem zijn slechts beperkt door 
de geïnstalleerde stockeringska- 
paciteit. De bediening is zeer 
eenvoudig en door enkele toet- 
sen in te drukken krijgt de ge- 
bruiker alle gekozen informatie 
bijna onmiddellijk op het 
scherm. Dank zij de interaktie 
zijn ook bewerkingen en trans- 
akties mogelijk.” En: "Voor 
het bedrijfsleven. Naast een in- 
formatiebron is videotex een 
goed kommunikatiesysteem om 
relaties met geografisch gesprei- 
de filialen, verdelers, kantoren 
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of personeelskernen te onder- 
houden. Een snelle verspreiding 
van veelgebruikte en vaak gewij- 
zigde gegevens naar vele mede- 
werkers is dan mogelijk. Ook - 
intern voor een groot bedrijf met 
vele afdelingen en diensten kan 
videotex de kommunikatiepro- 
blemen oplossen. Door het op- 
zetten van 'besloten gebruikers- 
groepen' blijft de vaak vertrou- 
welijke informatie beperkt tot de 
leden. De informatieleverancier 
bepaalt zelf wie toegang heeft tot 
zijn informatie en aan welke 
prijs. Het is mogelijk met de vi- 
deotex-dienst toegang te krijgen 
of te verlenen tot uw eigen of an- 
dere komputers. Daarenboven 
kan op termijn een internatio- 
naal schakelnet tot stand komen. 
© Videotex is een ideaal 
publicitair medium 
voor grote versprei- 
ding met attraktieve 
grafische moge- 
lijkheden. De infor- 
matieleverancier 
kan op eenvoudige 
en efficiënte manier 
zijn informatie te 
koop aanbieden.” 


Tot zover de RTT. 
Nu de praktijk. 
Want het lijkt erop 
als je het RTT- 
proza leest dat er 
hier een nieuw, 
veelzijdig en uitge- 
breid medium, ter 
van iedereen 
gepaard te 
beschikking 
staat. Zonder 
gaan met problemen. 
Niets is minder waar. 
Er waren problemen 
in de vorm van het 
zich door de RIT toegeëigende 
monopolie op de modem, 
het apparaat dat gegevens van 
digitale in analoge vorm 
omzet, zodat het via de tele- 
foonlijnen naar elders gestuurd 
kan worden, waar ook een mo- 
dem staat, die het proces in om- 
gekeerde volgorde doet. Het 
monopolie werd al in het 'Jour- 
nal des Tribunaux' aangevallen 
(12-2-1983). De wetteksten 
hebben het enkel over een mo- 
nopolie van de RTT op de tele- 
foonlijnen, en niet op de appa- 
raten die op die lijnen aangeslo- 
ten kunnen worden. 


Helemaal onoverkomelijk zou 
dat monopolie niet zijn ge- 
weest, als er maar goede mo- 
dems geleverd werden, en juist 
daar zat het probleem. Terwijl 
een bedrijf als Barco schermen 
en terminals levert met een in- 
gebouwde modem (Barco le- 
verde een duizendtal viewdata- 
terminals aan de London Stock 
Exchange, en 500 aan het privé- 
net van Jet-Air) ter grootte van 
een kwart velletje A4, leverde 
de RTT een modem, die door 
een van de door ons gekontak- 
teerde personen, (die liever niet 
met naam en toenaam genoemd 
worden omdat het vrij delikate 
zaken zijn, en de viewdata-we- 
reld een zeer kleine is) als eerí 
mastodont omschreven werd. 
Grootte bij benadering twee 
velletjes A4, hoogte een half 
velletje A4. Daarbij komt nog 
dat de door de RTT geleverde 
modem geen specifieke viewda- 
ta modem is, maar een voor 
komputers op lage snelheid. Op 
zich werkt hij wel goed, zeggen 
degenen die hem gebruiken, 
anderen weten het niet of nau- 
welijks. De modem staat er, en ` 
dat is alles. 


. Wat het nog erger maaktc, was 


de exorbitante prijs voor de huur 
van de modem. Per 2 maand 
moesten de gebruikers 2.750 
Bfr. neertellen, voor iets dat bij 
wijze van spreken in de kast 
stond. De kosten voor een in 
een Barco-terminal ingebouw- 
de modem bedzagen 
tussen de 

1.000 en 

2.000 frank. 

In het bui- 


tenland zijn de kosten voor de 
gebruiker van viewdata aan- 
zienlijk lager. In Frankrijk le- 
vert de PTT voor 1.500 Bfr. 
huur per maand, de terminal 
inklusief de modem. De huur 
van de modem in Duitsland be- 
draagt 5 mark per maand, in 
franken 100. De vraag was ook 
wat men op het kabinet van de 
eerste minister zou doen, nu dat 
uitgerust wordt met 100 video- 
tex-aansluitingen. Ingebouwde 
of externe, lees RTT-modems? 
Aanvankelijk wisten de andere 
gebruikers niet beter dan dat er 
RTT-modems op de Barco-ter- 
minals geschakeld zouden wor- 
den. Helaas, zci men toen, om- 
dat zij anders als er moeilijkhe- 
den zouden komen naar de han- 
delwijze van de eerste minister 


konden verwijzen. Onbekend 

is of het rekensommetje voor 
de huur alleen van de 100 mo- 
dems op het kabinet van Mar- 
tens de RTT ertoe aangezet 
heeft het apparaat vrij te geven. 
De dienst van de eerste minister 
zou dan 3.300.000 bfr. mo- 
demhuur moeten opbrengen. 


H« gebruik van de RTT-mo- 
dem was ook redelijk omslach- 
tig. Men neme de telefoon- 
hoorn in de handen, drukke op 
een knop, wachte tot men het 
signaal van de komputer hore. 
Dan de knop van de terminal 
indrukken, en de hoorn wegleg- 
gen. Dan moet nog het pass- 
word ingegeven worden. Mak- 
kelijk is anders. De apparaten 
met ingebouwde modem heb- 
ben autodialing en geven auto- 
matisch het pass-word. 
Natuurlijk wist de RTT dat het 
met een ingebouwde modem 
makkelijker ging. Op de me- 
diadag van de CVP, 4 december 
vorig jaar, had Barco volledig 
volgens de regels op de stand 
externe modems. Iets verderop 
stond de RTT mét een Barco- 
terminal, maar zonder externe 
modem! Toen een van de ande- 
re gebruikers van videotex op 
een show stond (opnieuw geen 
namen) was de modem besteld. 
Men had daar twee mogelijkhe- 
den, of de externe RTT-mo- 
dem, of de ingebouwde. De in- 
gebouwde was wel veel sneller 
aangesloten, maar een techni- 
kus van de RTT kwam daar om , 
de externe modem aan te slui- 
ten. De technikus belde naar de 
RTT om te horen wat hij moest 
doen. Onze kontaktpersoon 
hoorde hem zeggen: "Als hij be- 
taald is, is er toch geen enkel 
probleem?" Voor de duur van 
de tentoonstelling heeft de 
RTT-modem ongebruikt in de 
kast gestaan. Maar hij was 
betaald. 

De verplichting de RTT-mo- 
dem te gebruiken was ook een 
rem op een plan van Test-aan- 
koop. Test-aankoop wilde op 
enkele plaatsen, bijvoorbeeld 
City 2, een corner-operator zet- 
ten, aangesloten op de data- 
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bank van Test-aankoop met 
konsumenteninformatie. Naar 
analogie ook van de viewdata 
automaten die in een groot aan- 
tal Nederlandse postkantoren 
te vinden zijn. Test-aankoop 
kon het echter niet doen, want 
de modem trok een streep door 
de rekening. Overigens, view- 
data-automaten zijn ook niet te 
vinden in Belgische post- 
kantoren. 


Ви ће in vergelijking met 
de modem relatief kleine pro- 
bleem van de telefoonkosten. 
In de zones 02 en 03 (Brussel en 
Antwerpen) geldt het lokale ta- 
rief, omdat daar de databanken 
geplaatst zijn (onder andere die 
van Editel in Brussel, en die van 
Bell-Telephone in Antwerpen). 


daarbuiten geldt het tarief van 
5 fr. per 48 sekonden. Het komt 
erop neer dat de gebruikers 
meer aan de RTT in de vorm 
van telefoonkosten betalen dan 
aan de bedrijven waarvan zij 
informatie vragen (Editel bij- 
voorbeeld vraagt 3 fr. per mi- 
nuut komputergebruik). In En- 
geland heeft 60 tot 70 % van de 
viewdata-gebruikers lokaal 
tarief. 

Het hoeft dan ook geen betoog 
dat de markt van viewdata tot 
nu toe in Belgié erg klein is. 
Partikulieren hebben er voor 
gepast 2.750 frank alleen voor 
de huur van de modem te beta- 
len, daarbovenop komen dan 
nog de kosten voor de telefoon 
en het gebruik van de kompu- 
ter. Viewdata wordt nu prak- 


gebruikers op de vingers van 
twee handen te tellen: Editel 
(VUM), Bell Telephone, 3 
Suisses, Test-aankoop, Jet-Air 
(echter buiten het videotex-sys- 
teem van de RTT), Telemedia, 


GBM, het Gemeentckrediet, 
Mediatel, en Sony (experimen- 
teel). Geschat wordt dat er zo’n 
200 tot 250 terminals geïnstal- 
leerd zijn (Jet-Air niet meege- 
rekend). Het gebruik van view- 
data is voor de Regie TT nau- 
welijks kostenverzwarend. De 
telefoonlijnen zijn er, de inge- 
bouwde modems zijn er ook. 


Feitelijk hoeft de RTT alleen 
maar te inkasseren. Maar het 
vermoeden bestaat bij een en- 
keling dat dat nog te maken 
heeft met de nasleep van de 
Baudrin-affaire. Sinds die af- 
faire zou niemand bij de RTT 
zijn nek nog uit durven steken. 
Pas als er iets zwart op wit van 
hogerhand komt, gaat het appa- 
raat draaien. 

Aan de viewdata-dienst bij de 
RTT ligt het niet. Een door ons 
geinterviewde zei dat de dienst 
de dingen goed ziet zitten, en 
als ze eenmaal het groene licht 
zullen krijgen, dat alles dan 
goed in elkaar zit, omdat ze ge- 
leerd hebben van de ervaringen 
in Engeland, Nederland en 
Duitsland. 

Dat is dan een magere troost. 


tisch alleen in het bedrijfsleven 
benut, maar ook daar zijn de AVP 


bron: Pub 4/6/83 








a 16 couleurs char 


1 
з REM 
16 REM JO 300 3€3€3€3€9E E EE JEJE EC EERE ЗЕ ЗЕ ЗЕ ЗЕЗЕ ЗЕ АЗ 
20 REM x«* S/P 16 COULEURS CARACTERES. LIGNES | *#x+ 
30 REM *** ADRESSEES PAR LA FN CURSOR (X,Y? жн 
40 REM жж SANS CALCULS COMPLIQUES ! xxx 
5 REM xxx (c) ALAIN MARIATTE 1983 aea 
ба REM 333 3 3-303 ЈАЈА ЖЕЗ ЗЕ ЗЕ ЖЕЕ ЗЕ ЗЕ 36 ЗЕ-ЗЕ ЗЕ JE ЗЕ ЗЕ ЗЕ EE ЗЕ NANA E 
70 REM 
80 КЕМ 
85 МОВЕ @:PRINT CHR$(12):CF!-0.0:COLORT CF! 10 CF! CF! 
87 PRINT :PRINT 
100 INPUT "LIGNE TEXTE A ECRIRE: ";A$:PRINT 

| 110 INPUT "CURSOR (X,Y):";X',Y'rPRINT :CURSOR X',Y':GÜSUB 1000 

| 111 REM 

| 115 НЕМ MODE 16 COULEURS (de CA a FA selon la taille) 

| 120 POKE CB,#FA 

| 121 REM 

| 122 PRINT 4% 

| 125 ВЕМ 

Я 


127 КЕМ ON CHOISIT DES COULEURS ALEATOIRES 
138 FOR І!-1.0 TO LEN(A$) 

148 POKE АС-5, (АМО (164.0) SHL 4.0) 4CF'! 

150 AC=AC-2 


160 NEXT 

170 REM 

900 БОТО 190 

990 REM 

992 REM DETERMINER L’ADRESSE DU CONTROL BYTE & DU CURSEUR 
994 REM 


1000 CB=PEEK (#79) #256+PEEK (#78) 
1020 AC=PEEK (#73) #2546+PEEK (#72) 
1030 RETURN 
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cassette tape lister 


Als U, net als ik met een "poor man's outfit’ - bestaande uit: РАІ pc, 
TV, Audio Cassette recorder (en ASR Teletype) - moet werken, dan іс bo- 
venstaand programma mogelijk ook voor U interessant. 
Zeker, als U evenals ik de neiging hebt om vrij veel programma's op EEN 
bandje te zetten, waarna het punktueel noteren van WAT WAAR staat nogal 
eens te wensen over Laat in de hitte van de strijd... 


Genoemd programma is gebaseerd op een eerder in DAInamic verschenen List 
Programma, maar nu uitgebreid met een AUTOMATISCHE  TELLERSTAND  Bereke- 
ning. 

Vooral dit Laatste is m.i. de grote kracht van deze versie, omdat alleen 
daarmee een werkelijk bruikbare Catalogus van een Bandje wordt verkregen. 


HOE WERKT `T? 


Om de inLeestijd niet al te groot te Laten worden, heb ik uitvoerige 
tekst en uitleg in het programma zelf achterwege gelaten. 

Daarom hier een toelichting op het principe: 

Laat de Computer de TITELS van de programma’s e.d. Lezen, bereken de tijd 
tussen het Lezen van twee opeenvolgende Titels, en Leidt hieruit de be- 
reikte Tellerstand af. 

Omdat de Timer in de DAI niet Loopt tijdens het eigenlijke inlezen, moe- 
ten we hiervoor corrigeren door са 2.5 s bij te tellen voor elke ingele- 
zen titel (са 2.3 s synchronisatietoon + de tijd nodig voor “Е inlezen 
van de Titel. Zie regel 310, waar de verstreken tijd іп ZOms eenheden 
wordt berekend). 

Daar de Afwikkelspoel geleidelijk aan sneller gaat draaien, moet de geme- 
ten tijd omgerekend worden met de (benaderings-) formule voor de Teller- 
stand “N° zoals deze voorkomt in regel 320, resp. 490. 

Hierin is "Ri de straal van de VOLLE Afwikkelspoel; “0° de Band-dikte 
voor een С50 cassette; (voor een C90 is dit ca 13 шт); еп "17 de TOTALE 
Lengte van de tape, gerekend vanaf het Begin van de Band (Tellerstand 
000!) tot aan het begin van het Programma waarvan we de Tellerstand "Ni 
willen berekenen (zie ook regels 200 t/m 220). 

De waarde van 717 volgt uit: L! = T * V! * 2E-2 « F! 

Daarbij is 'T' de in regel 310 berekende verstreken tijd in eenheden van 
20 ms; 7У” is de bandsnelheid (in m/s), en "E een correctie factor, wel- 
ke afhangt van het betreffende cassettebandje - zie hierna (aanvankelijk 
is de waarde van °F’ 1.0, reden waarom hij werd weggelaten in regel 320). 
De faktor ‘0.6’ is de overbrengingsverhouding tussen de Afwikkelspoel еп 
de Teller (mogelijk is deze waarde afwijkend voor een ander merk dan de 
Philips N2225!) 


Als we het programma starten zal dit eerst naar de Datum vragen, vervol- 
gens naar de Naam van het Bandje, en tenslotte of het al een “EOF” bevat. 
Als we n.l. achter het Laatste programma op de band ееп z.g. "End-Of-File 
Record" hebben staan dan kan daar op getest worden om te stoppen. (Het is 
anders niet (eenvoudig) mogelijk erachter te komen dat we het Laatste 
programma op de band ‘gezien’ hebben...) 

Ontbreekt het EOF record, dan biedt de computer aan er een voor ons te 
schrijven. Wensen we dit niet, of zijn we slechts ge-interesseerd in een 
beperkt aantal titels, dan kunnen we in plaats daarvan het Aantal  Pro- 
gramma's opgeven. 


Nadat we het bandje geheel teruggespoeld hebben en de TELLER op 000 heb- 
ben gezet, moeten we de Recorder starttoets en de Spatiebalk gelijktijdig 
indrukken. Het programma Leest nu alle Titels, toont ze op het scherm, en 
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registreert zowel de verlopen Tijd (T), de berekende Tellerstand (N) als 
de gelezen Titel (A$) in de daartoe bestemde Arrays ст)", "NCL", 
"1%(1)")). 


Als het gevraagde aantal Titels, resp. EOF’ is gelezen, wordt een ouer: 
zicht van alle geregistreerde titels getoond met hun Berekende Teller- 
standen voor F!=1.0. 

Vervolgens wordt gevraagd wat de WERKELIJKE stand behorend bij het als 
Laatste getoonde Programma (resp. EOF’) is. Hiermee wordt dan een itera- 
tieve herberekening gemaakt (aanpassing van 'F!') om de zaak kloppend te 
maken (soms Lukt dit niet precies voor alle tellerstanden, maar meer dan 
1 à 2 nummers scheelt het zelden!). 

Na de berekening wordt ter controle het gekorrigeerde overzicht weer ge- 
toond, en kan men desgewenst opnieuw een ‘werkelijke waarde’ ingeven, 
enz. 


Tot slot moet “0” worden gegeven om uit deze Loop te raken en komt de 
vraag: "Print-out op de ASR (Ү/М2?" 

І.9.у. "Y" volgt de waarschuwing om de ASR On-Line te zetten, en wordt er 
na het indrukken van de Spatiebalk een Print-out gemaakt (zie voorbeeld). 


N.B. Mocht men moeite hebben met de Lineariteit (nummers in middengebied te 
hoog of te Laag), dan moet mogelijk de waarde van “R!” Cen/of “D!*) 
iets aangepast worden! (regel 240). Ook kan het zijn dat de bandsneL- 
heid “М!” niet precies 4.75 cm/s is. 

Dit ‘tunen’ kan men heel eenvoudig doen door tijdens een “BREAK” een 

of meer waarden te wijzigen, en na CONT’ opnieuw de juiste "werkelij- 
| ke’ waarde in te geven! (Zonodig herhalen tot de gewenste nauwkeurig- 
| heid is bereikt..) 

Overigens kan men het uitprinten natuurlijk op elke willekeurige Prin- 

ter Laten doen. In dat geval moet alleen de Baudrate worden aangepast, 

еп is het wachten na een Carriage Return (Lege Loop met ‘NUMBER - 
geen WAITTIME, daar anders de timing verloren gaat!) meestal niet meer 
nodig. 
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cassette tape lister —€— БАЕ d 


520 
530 


REM CASSETTE-TAPE LISTER V2.4 

REM DØØP D. ASSINK3 83-05-20 

CLEAP 15000:DIM XCOD,NCIOOD, TCIOOD, TSCIOOD 

EL $=" "“sELS=ELE+EL$ 

CUFS=20: AANT=100: I= 1: BAUD=#CO: POKE #FFOS, BAUD 

POKE #131,0: PRINT CHF $(12)5 : ADS="'"":X9 $=CHF $(9) 

RESTORE: FÜR A=1 TO 21: READ B: AD$=AD$+CHRECE): NEXT 
AD=PEEK(CVARPTRCADS$)) IOP (PEEK(VARPTRCADS) +1) SHL 8)+1 
CURSOR 15,20:PPINT "CASSETTE TAPE LIST PPO СРАММА" 

PRINT TAB(IS)j 'zzzzzzzzzzz2z2z2-2z2zz2z2z22z2z-2---":PpRINT ЗРЕ1МТ 
PRINT "DIT PROGRAMMA STELT DE INHOUDSOPGAVE VAN 

EEN CASSETTEBANDJE" 

PRINT "SAMEN; WAAPNA DIT ØP EEN ASF TELETYPE GEPRINT 

KAN WORDEN. mm: PRINT 

PRINT "EEN EUT. AFWIJKING TUSSEN DE BEREKENDE EN ГЕ WERKELIJKE" 
PRINT '"TELLERSTAND KAN NOG VOOR HET UITPRINTEN WOPDEN 
GECORRIGEERD. rm 

PRINT :РРІМТ :IF T=0 THEN INPUT "DATUM"; D&: PRINT 

PRINT : INPUT "NAAM ØF NUMMER VAN НЕТ BANDJE"SN€: PRINT 

PPINT :INPUT "IS HET BANDJE AL VØØRZIEN VAN 'ЕДЕ' RECORD (Y/N)'3 
A$: PRINT 

IF A&<>"Y" THEN 68518 700 

Т=0:РРІМТ CHR$(12):POKE #75, #20 

FEM 

PEM NU V@LGT DEFINITIE VAN: "pr (RADIUS VOLLE SP@EL (MM); 
REM 'D' (DIKTE BAND (MICRON) (C601)3 'V' (BANDSNELHEID [CM/S]) 
REM EN: 'F' (EXFERIM. C@PRECTIEFAKTOR VOOR GEM. BANDJE): 
R!224.7:D!-216.2:VU !24. 75: F ! =]. 0; FF! s F! 
R!zsR!*1E-3:D!zsD!*1E-6:U!-U !*FI'*]E-2 

CURSIR 0,23:PRINT "START RECORDER, EN ОРОК TEGELIJK 

ØP SPATIEBALK!"3:G@SUP 600 

B= #PFE7+239:P@KE 41ВЕ,050:Ғ2КЕ %1ВЕ,255:СГР5ЙР 0,21 

PRINT " NR: ТҮРЕ: FILE NAAM: " , 
CURSOR 0,93:PRINT Е; 

CURS@P 0, 23:CALLM AD 

TL=PEEK( #1Bf£): TH=PEEK(#IBF): POKE 41BE,255:POKE #1BF, 255 
T=T+255-TL+113+0.42*( #BFE7-B)+(255-TH)*256:REM TIMING 
TCIOST:iL'!zT&V!*2E-2:Ns(R!-SQR(F!«R!-D!«L!/PI))0/D!*0.6 
NCI)=N:CURS=CURS-1:IF CURS=0 THEN CUFS=19 

CURSOR O»CURS:POKE #40, #30 

PRINT EL$;:CUPRSQR O,CURY:PRINT N; TAB(6)3 

A= #BFE7:AS=CHRSCPEEX(A))+" nm 

A-A-?:1F PEEKCA)=#20 GOTO 370 

FÜR B=#PFSS TØ А STEP ?:1F PEEK(B)=#20 THEN NEXT 

IF A>B THEN FOR A=A TO B STEF -9: A$SZAS*CHRSCFEEKCADOO : NEXT 
TSCID=AS: PRINT AS: I=I+1:1F І<=ААМТ AND ЕТСНТЕСАФ, 3) <> "EØF" 
6270 280:GØTØ 410 

POKE 4FFOS5,BAUD:IF BAUD=1 THEN WAIT TIME 50 

PRINT CHR$(120:PRINT "BAND: ";N$: TABC45)3 "DATUM: "SDS: PRINT 
PRINT " NP: TYPE: FILE NAAM:":PRINT :IF BAUD=1 | 

THEN WAIT TIME 20 

FLG=O: FOR K=] TO I-1:T-2T(KO:L !)= ТЖИ!ГЖРЕ-РЖЕ! 
Nz-(R!-SQR(R!*R!-D!X«*L !/PI ))/D!x0.6 

PRINT N; TABC6)3TSCK): FOP Уш! ТО NUMBEF:NEXT:NEXT K 

PRINT :IF BAUD=1 GOT@ 560:1NPUT "WERKELIJKE WAARDE VAN 
LAATSTE NUMMER (0 = EXITO';N:PRINT 

IF №0 GOTO S30:M=N:K=M: T2 TCI- 1) 

FI!-FF!x*K/NCI-10:L 1= TKV!k2E-OX*F!:NS (E!-SCPCR «PR ! -E! «L 1 /Р1))/г!ж0. 6 
IF N«M THEN KsK*1:FLG21:G2T2 490 

IF ММ THEN IF FLG=0 THEN KsK-1:G0TO 49C 

5270 410 

PPINT :INPUT "PRINT-2UT ДР DE ASF CY/N) "3 AS: PRINT 
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жж CASSETTE TAPE LISTER 83-05-20 FAG 2 


540 IF AS="Y" THEN GOSUB 800:G8TO 410 

550 GITE 570 

560 РОКЕ 47131,1: ЕНІМТ "ZET ASP OFF-LINE! !": GOSUB 810 

570 NUMBER=0: BAUD=#CO: РОКЕ £$131,0: GOTI до 

600 IF СЕТС<>0 GOTE 600 

610 IF GETC=0 GOTO 610: RETURN 

7CC PRINT :INPUT "'ЕДЕ' RECORD SCHRIJVEN'S AS: PPINT 

710 IF A$«»"Y" GOT2 770 

720 PRINT :РРІМТ "SPOEL CASSETTE NAAR GEWENSTE POSITIE“ 

730 РРІМТ :РРІМТ "SET RECORD, START TAFE, TYPE SPACE" 

740 GOSUB 600:5АУЕА X "ЕВЕ": PRINT 

750 PRINT "SPOEL CASSETTE TERUG NAAR 000, EN TYP EEN SFATIE" 

750 G@SUB 600: 6070 780 

770 PRINT : INPUT “H@EVEEL PROGRAMMA'S STAAN ER ГАМ (TENMINSTE) ДР": 
AANT: PRINT 

780 PETItRN 

800 BAUD=1:sNUMBEP=150C:FRINT :FPINT "ДЕТ ASF ON-LINE!!" 

81C ENVELOFE O 15,1550, 125:S8UND O C 15 O FREOQ( 2000) 

820 G2SUB 600: SOUND OFF : RETURN 

10000 DATA #25, #05, #05, ФЕ5, #01, #40, 00, #11, #B ls #80, #21, #9Е 

10010 РАТА #Е6, #CDs «CE, #02, #Е 1, Dl» #С 1» #F 1, #09 


Onderstaand een Voorbeeld van de Output zoals die op het 
scherm, en uiteindelijk op de Printer verschijnt: 
(Bandje bevat een 'EOF! record op tellerstand 100) 


BAND: DEM@NSTRATIE CASS.TAFE LISTER DATUM: 83-05-20 


NP: TYPE: FILE NAAM: 





5 С CASSETTE TAPE LISTER V2.4 
9 0 TEST PPOGPAMMA ! 
14 О TEST FR@GPAMMA 2 «De Output zoals die de eerste 
19 2 ARRAY XYZ maal op het SCHERM verschijnt. 
24 2 ARPAY РОВ 
29 0 BUDGET 
38 С PLANNING 11.1 
48 2 
57 0 MAIL v2.3 
| 36 0 D@SLH@F V2.2 
2 


ЕДЕ 
WERKELIJKE WAARDE VAN LAATSTE NUMMER (0 = EXIT)?100 


BAND: DEMZNSTRATIE CASS.TAPE LISTER DATUM: 83-05-20 


NR: TYPE: FILE NAAM: 


waarde !O! te geven, wordt deze 


5 O CASSETTE TAFE LISTER V2.4 
10 0 TEST PPOGPAMMA | 
15 O TEST PROGRAMMA 2 «= De HERBEREKENDE Output zoals 
ес 0 ARRAY XYZ die na ingave van de juiste 
25 9 АРРАҮ РОР 
20 0 BUDGET tellerstand (hier dus: 100) 
an PLANNING Viel voor het 'EOF! record ontstaat. 
6n О MAIL V2.3 Door hierna als 'werkelijke! 
90 0 DIJLHIF V2.2 

2 


EJF 
zelfde tekst uitgeprint. 
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wh SS ‚Programmeer technieken.. ERREI 


Het probleem dat ik deze keer wilde bespreken is het toekennen van een waarde 
aan een variabele als de toegekende waarde weer op zijn beurt afhankelijk is 
van de waarde van een andere variabele. Dit komt in vele programma’s voor en 
wordt vaak opgelost op de manier die ik hieronder laat zien: 


150 IF А-5 THEN P=3:GOTO 200 
160 IF A=& THEN P=5:GOTO 200 
176 IF A=7 THEN P=7:GOTO 200 
189 IF A=8 THEN P=9:GOTO 200 
190 Р=@ 

299 .... ж...  . 


Dit is vanzelfsprekend een duidelijke methode, die zelfs in sommige gevallen 
de beste is. Maar als er veel mogelijkheden voor A en P zijn of als de toewij- 
zing met een berekening uit te voeren is verdient dat toch de voorkeur, mits 
die berekening niet te ingewikkeld is. 


Ik zal een aantal uitgewerkte voorbeelden geven hoe het in de meest voorkomen- 
de gevallen beter opgelost kan worden. Het betere van die oplossing zal een 
korter programma dat vaak sneller zal zijn$ al hoeft dit laatste niet. 

In tegendeel het programma zal zelfs trager kunnen worden; als normaal in bijna 
alle gevallen reeds aan de eerste of tweede conditie wordt voldaan zal mijn 
aanpak trager kunnen zijn. 

Kiest u voor de 'oude' oplossing doe dit dan wel op een overdachte manier. 

Het volgende voorbeeld zal dit duidelijk maken. We willen de getallen van 160 
tot en met 200 onderzoeken op deelbaarheid door de priemgetallen onder de 20, 
(Hiermee vinden we de priemgetallen tussen deze grenzen. (19 is overbodig)) 

We gebruiken hiervoor het volgende programma: (intikken na IMPFPT) 


3 WAIT TIME 1:POKE #1BE,#FF:POKE #1BF,#FF 
18 FOR I=186.4 TO 300.0 

20 IF I/2. 8-INT(I/2.0) GOTO 110 

5 IF I/3.@=INT(I/3.0) GOTO 118 ; 
40 IF I/5.@=INT(I/5.@) GOTO 118 

sa IF I/7.8-INT(I/7.0) GOTO 118 

50 IF I/11.@=INT(I/11.9) GOTO 119 

7a IF 1/15.Ө-ІМТ(1/15.9) GOTO 118 

89 IF 1/17.ӘзІМТ(1/17.9) GOTO 118 

ga IF I/19.0-INT(I/19.8) GOTO 114 

180 PRINT I 

118 NEXT : 

195 A-PEEK (RIBE) : ВЕРЕЕК GH BE) : ? GIFFFF-A-E*256, 0) /50, ар" SEC" 


Zoals u hopelijk weet zijn regel 5 en 195 bedoeld om de looptijd van dit pro- 
gramma te meten. Op mijn machine deed dit programma er 12.44 (6,48) seconden 
over. De tijd tussen haakjes is de tijd met math.chip aan. We zien simpel in 
dat bij de helft van de getallen reeds bij regel 29 naar de next gesprongen 
wordt. De hier gekozen testvolgorde is dus juist en logisch. Als we nu voor 
de demonstratie de regels 28 t/m 98 eens in omgekeerde volgorde nummeren zul- 
len we zien dat de tijd enorm toeneemt nl 21.74 411,19) seconden. 
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Men kan dit programma natuurlijk ook wel beter opzetten: (intikken na IMPINT) 


5 WAIT TIME 1:РОКЕ #1BE,#FF:POKE SIBF,SFF 
19 БОК I=100 TO зад 

20 IF I/19*19-I GOTO 119 

28 IF 1/17%ж17=1 GOTO 118 

40 IF I/13*12-I GOTO 119 

Do IF I/11*11-I GOTO 114 

68 IF I/7#7=1 GOTO 119 

78 IF 1/5ж5=1 GOTO 118 

ве IF I/3*3-I GOTO 119 

а IF I/2*2-I GOTO 118 

100 PRINT I 

110 NEXT 

195 A-PEEKGH BE) : В=РЕЕК GH BE) SPRINT GIFFFF -A-B&255) /50. 6 


Werkt dit dan ook zullen sommigen zich misschien verwonderd afvragen ? Inder- 
daad dit werkt ook: als we een getal I eerst integer delen door bv 17 en dan 
weer vermenigvuldigen met 17 zal het getal afgerond worden op het grootste 
veelvoud van 17 dat kleiner of gelijk is aan het getal I. Als I dus deelbaar 
is door 17 zal aan de conditie I/17*17s1 voldaan worden. Dit programma duurt 
9.58 (6.56) seconden. De winst komt mijns inziens voornamelijk doordat er in- 
teger wordt gerekend, maar dit is niet te controleren omdat de "truc? in floa- 
ting point niet werkt. We zien echter wel een vreemde volgorde: we zetten dus 
de regels 20 t/m 99 weer in omgekeerde volgorde en krijgen 5.88 (4.4) seconden. 
Gaan we nu regel 20 bij regel 28 zetten en evenzo 58 hi j A8 etc. komen we op 
5.82 (5.74) seconden. Maar het кап nog steeds beter : 


20 IF I/2*2-I THEN МЕХТ: GOTO 195 
19 IF I/3#3=I THEN NEXT 

A3 IF I/S*S5z2I THEN NEXT 

ze IF I/7*7-I THEN NEXT 

өй IF I/11*11-I THEN NEXT 

79 IF I/1ZX*1321 THEN NEXT 

ge IF I/17*17-1 THEM NEXT 

зо IF I/19*19-I THEN NEXT 

128 PRINT I:MEX 


Kegel 5,19 en 195 identiek aan vorige keer. Minder f 
FOR maar liefst 9 NEXT'n staan en tevens reeds van te 
laatste getal door 2 deelbaar is. Om het programma algemeen te houden zou ach- 
ter elke NEXT een GOTO 195 moeten staan. Maar dit z leen de intiktijd doen 
tcenemen en niet de looptijd 3.7 (2.52) seconden. Er ie echter nog winst te be- 
halen door regel 188 te veranderen іп : 

180 PRINT I;:NEXT 

Een kleine verandering maar de puntkomma achter de FRINT scheelt veel, we krij- 
gen nu 4.96 (2.88) seconden. 

U ziet een math chip versnelt wel (30 tot 58 7) maar goed programmeren loont 
vaak meer (75 7). 


ai doordat er bij een 
voren bepaald is dat het 


n 


We zijn nog steeds bezig met de ‘oude’ versie en het wordt toch wel eens ti jd 
om een echt andere aanpak te laten zien. Kijk nog eens naar het uitgangspunt. 


Eerste probleem: A kan zijn 2,3,4, 5, 6, 7 of 8 en in dezelfde volg- 
orde moet P worden 12, 18, 18, 21 , 24 , 27 of Зе. 

We zien vrij snel dat er een wiskundig verband bestaat tussen de waarde van A 
en de waarde van P. А loopt met 1 op als P met 3 oploopt; от dit verschil tot 
uitdrukking te laten komen zullen we A met 3 moeten vermenigvuldigen en om het - 
‘dan geheel met elkaar in overeenstemming te brengen er nog 6 bij doen. We krij- 
gen dan : 
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OUD NIEUW 
150 IF A22 THEN Р=12 
160 IF A=3 THEN P=15 
. 170 IF A=4 THEN P=18 150 Р-«Аж5%б 
186 IF А=5 THEN Р=21 
190 IF A=6 THEN P=24 
200 IF A=7 THEN P=27 
210 IF A=8 THEN Р=54 


Het oude programmadeel kan nog versneld worden door GOTO's aan het eind van de 
regels. Er is wel een verschil maar in de praktijk zal dat meestal niet een 


probleem zijn, 'oud' verandert P niet als aan geen der voorwaarden voldaan wordt 


en "nieuw* verandert P ati jd. 


Tweede probleem: iets moeilijker nu. Haast het zelfde maar nu kan A elke waarde 
hebben en P moet 9 worden als A kleiner dan 2 is en 33 als A groter dan 8 is. 


OUD NIEUM 
159 IF А<2 THEN P=9 
168 IF A22 THEN Р=12 
176 IF A=3 THEN F=15 150 Р«Аж5-% 
кр тыла ВЕБ 1660 IF А<2 THEN Р=9' 
220 IF А-В THEN Рх50 170 IF 458 THEN Р=35 
238 IF АВ THEN Pz33 


Nadeel van de nieuwe methode is het mogelijkerwijs voor niets uitvoeren van re- 
gel 150. Als in vele gevallen A kleiner is dan 2 is het dan ook beter regel 150 
en regel 160 te verwisselen waarbij er dan natuurlijk wel een GOTO 180 moet ka- 
men achter de P-9. En zo zijn er под wel wat varianten te verzinnen in geval A 
meestal een bepaalde waarde veel vaker dan andere aanneemt. 


С 


Derde probleem: ме даап nu het geval bekijken waar А regelmatig toemeent maar 
waar er geen eenvoudig wiskundig verband is tussen A en P, een berekening is 
dus lastig of onmogelijk. | | 


QUD NIEUM | 
150 IF A=3 THEN P=7 
160 IF A=4 THEN P=4 10 DIM P(9) 
170 IF A=5 THEN P=15 29 FOR I=3 TO 9:READ Р(1):МЕХТ 
180 IF A=& THEN P=31 
190 IF A=7 THEN P=76 150 Р=Р(А) 
200 IF А-В THEN P=45 
210 IF A=9 THEN P=29 960 DATA 7,4,15, 31, 74,45, 29 


De voorgestelde nieuwe methode vertraagt het programma enigzins bij aanvang maar 


compenseert dit later ruimschoots. Tel het aantal regels nieti het is een voor- 
beeld, als ik "оца" uitbreid tot bv twintig regels zal "преци: gelijk blijven of 


met hoogstens een toenemen. 
Vierde probleem: het geval waar P regelmatig toeneemt en A zich juist zeer onre- 


gelmatig gedraagt. Ook hier zullen we in de versie "преци" gebruik maken van een 


array. 
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OUD | NIEUM 


150 IF A=3 THEN P=2 

160 IF A25 THEN Р=5 ја DIM A(8) 

170 IF A=9 THEN P=4 20 FOR I=2 TO 8:READ ACI) : МЕХТ 

189 IF A=12 THEN P=5 

199 IF A=33 THEN Р«Ф 154 FOR 1=2 Т 8:IF ACI)=A GOTO 160:NE 
XT 

200 IF A=42 THEN P=7 160 P=] 

210 IF A-87 THEN P=8 


Vijfde probleem: er is totaal geen logica te ontdekken in de onderlinge verhou- 
dingen van A en P nog in de waarde die zij hebben of krijgen. Dit is bijvoorbeel 
d 
het geval als A de ASCII-code is van een bepaalde toets en P de actiecode voor 
het programma. We gaan in de 'nieuwe' oplossing weer met een array werken. Er ka 
n 
gekozen warden voor een twee-dimensionale array waar de A's e P's in paartjes 
bij elkaar staan of voor twee aparte аггау:5; een voor de A's en een voor de P’s 


De laatste mogelijkheid is misschien iets minder mooi maar werkt sneller. 


QUD | NIEUW 
19 ТЕ А=16 THEN P=7 16 DIM A(1@),P (10) | 
20 IF А=17 THEN P-8 28 = FOR Ізі TO 10:READ ACD ,P(D : NEXT 
30 IF A=18 THEN P=15 | 
40 ТЕ A=19 THEN P-16 . 56 FOR Ізі TO 10 
50 IF A-55 THEN Р=0 а ТЕ A-A(I) THEN P=P(I):GOTO 80 
660 IF A=64 THEN P=2 та | NEXT 
70 IF A=74 THEN P=-1 C MEM E Rn 
80 IF 4-78 THEN P=99 
90 IF A-83 THEN Р=1@@ 900 DATA 16,7,17,8,18,15,19,16,65,0 
160 IF A-9 THEN P-5 919 DATA 66,2,74,-1,78,99,82,100,9,5 


Nogmaals tel niet het aantal regels het gaat om het principe. En wat 'oud' ge- 
daan wordt door de regels 10 t/m 100 wordt ‘nieuw’ gedaan door de regels 50,00 
en 70. Indien gewenst kan dit ook nog in een regel gezet worden: 


50 FOR 1=1 TO 10:P=P(I):IF А-А(1) GOTO 60: МЕХТ 


Toch kleven er ook wat nadelen aan de voorgestelde nieuwe methodes, waar we op 
moeten letten willen we er geen last van krijgen. De nieuwe regel 6 eindigt met 
GOTO 80; dit zal de snelheid ten goede komen maar de FOR-NEXT loop is dan vaak 
nog niet ten einde. Komt er dan een NEXT van een buitenloop zal die verkeerd 
worden geinterpreteerd. Dit kan voorkomen worden door NEXT I ipv alleen NEXT te 
gebruiken. De een-regel methode zal traag zijn: alle controles met behulp van 
array’s en indien nog niet gevanden toch maar vast een toewijzing. 

Daarnaast zal juist de ongeoefende programmeur het minder duidelijk zien wat de 
regel doet. Voor mij is het een voordeel bij het bekijken van inzendingen: Ik 
kan het programma korter maken en ik weet gelijk met wat voor soort programmeur 
ik hier te doen heb. 

Ik zie echter in de inzendingen een duidelijke stijgende lijn zitten en ik vlei 
me met de gedachte dat dit mede door deze artikelenreeks komt 


Frank H. Druijff 


P.S. Het problem program is zowel door Nico Р. Looije als door mij zelf nog 
aanzienlijk versneld. 
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The EDITOR story 


This article describes the functioning of the BASIC-command 
*EDIT’. 
For details, the 'DAI pC FIRMWARE MANUAL” should be used. 


When the Basic command "EDIT’ is given (only in direct mode), 
the program jumps to address #OE1FS. 


— Set up the editbuffer: 


EIFS The EDIT buffer is set up. The screen mode 0 is 

E265 selected (the screen is cleared). Via #D86D, an 
error message is given if insufficient memory 
for mode О is available.- 
If sufficient memory available, the heap and the 
symbol table are cleared (all variables are set 

E26C to zero). Then the free RAM space is calculated, 
and the amount of heap-space is added to it. 
This gives the maximum available free RAM space 
for the editbuffer. 


E275 Now the textbuffer and the symboltable are moved 
to the end of the free RAM. This leaves a large 
free RAM area between "start of heap" and ’start ] 
textbuffer'": 


heapt+free RAM textbuf symtab video 
ا ر‎ Ses eS 2----------- 7-------- 4----- / 
7 T 
start end 
editbuffer 
E27D The startaddress of the heap +2 is the startaddress 


of the editbuffer; the startaddress of the text— 
buffer is set as the end of the editbuffer. 


ESSE The output switch #0131 is set to the editbuffer. 
EIFS Now the program is listed into the editbuffer. 
Е19Ғ This is done in the same way as it is listed to 


the screen. So the contents of the editbuffer 
is a complete listing of the program in "plain 
Basic text’. 


EIFE Now the output switch #0131 is set back to the 
screen. The keyboard is enabled completely, and 
а "О" byte is added at the end of the editbuffer 
contents to indicate its end (all other bytes 
are <> 0). | 
The tab-table is disabled by clearing its pointer 
воова. Therefore, TAB’s are normally not useable 
in the editbuffer. 


E20R | Here the screen-editor is initialised via RSTS; 
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DATA 92A: 


2ЕВЕ4 Again a mode © screen is set up and cleared, and 
ali pointers for handling the cursor and the 
window (the visible part of the textbuffer on 
the screen) are cleared. 


2ЕС17 Оп this cleared screen, one page (24 textlines) 
beginning at the start of the editbuffer, are 
printed. 


— Inputs into the editbuffer: 


Егор Now the program enters a loop, in which inputs 
Can be made. Depending on the key pressed, different 
actions are taken by the screen editor. Inputs 
can be stopped by pressing the BREAK—key. 

E216 The inputs made are evaluated via RSTS: DATA #20: 


2ECIE Via the cursor control keys, the cursor can be 
moved over the screen. The screen scrolls automatic- 
ly if the boundaries of the screen are reached. 
This means, that then the window is moved over 
the text in the editbuffer. 


This "window? can be seen as a rectangular looking 
glass, moved over a piece of paper. Only the part 
seen through this looking glass is visible: 


+„«+=+„-ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ........... 
------КХЖҖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ,.......... 
ss = = ЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖ.,.......... 


ж window 


----»„-ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ........... 
АОБА а а а а а = 





The window can also be moved by depressing the 
cursor control keys together with the SHIFT-key. 
Now the cursor remains on the same text line (as 
long as the screen boundaries are not reached). 


ZEF Ap Any other character typed in, is inserted in the 
editbuffer on the position of the cursor. The 
rest of the text is moved to make space for the 
new character. 


2EFCC If the input character is 'CHAR DEL’, the character 
at the current cursor position is removed from the 
buffer, and the rest of the text is moved one 
position. 


Егіз If an input character has been evaluated and even- 
tually stored in the editbuffer, the next input 
character is awaited and obeyed. This process 
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continues until the ’ BREAK? key is pressed. 


— Return from EDIT: 


E222 
E24D 


After a 'break", the screen is cleared. Then the 
next key input is awaited. 


If the second key depressed is again * BREAK’, 


all corrections made on the text in the editbuffer , 


is ignored. In other words: the original program is 
restored. 

The pointers for the heap, the textbuffer and 

the symbol table are set back to their original 
values, and the program is moved to its original 
position. 

The editbuffer pointers and the contents of the 
editbuffer are not cleared. But because the edit- 
buffer was loaded from the lower end of the free 
RAM (incl. heap) onwards, it is overwritten by the 
Original program. 


If after the first ’break’,the second key is any 
other key except the BREAK-key, the modifications 
implemented in the editbuffer are now inserted in 
the original program. 


H 


- Insert edited program lines: 


E24R 


C84B 


0879 
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The encoded input switch #0135 is set to the edit- 
buffer. This means: the editbuffer is the source 
to get inputs for encoding a textline. 

Because in the pointers #0119 and #011B the start 
and the end of the part of the program which was 
listed into the editbuffer was kept, it is now 
possible to removed this part from the original 
program (which is still at the upper end of the 
free RAM space). 

Now the length of the area occupied by the used 
part of the editbuffer is calculated: from the 
startaddress of the heap (= start editbuffer) 

to the inputpointer 40054 of the editbuffer). 

Now the original program (minus the lines deleted) 
is moved to the end of the editbuffer: 





editbuf textbuf symtab free RAM 
gesessen Sf ------- 7----------------- / 
T 
start heap 


Now the Basic subroutine "EDIT: is finished, and 


the program returns to the normal Basic monitor 
routine on #C818. 


Because the encoded input switch #0135 is set to 
the editbuffer, textlines are readed from this 
buffer. 
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— Inputs from the editbuffer: 


E291 The startaddress of the editbuffer is stored 
in the encoding input pointer #0132. This pointer 
indicates the start of the textline for encoding. 


E298 One character is taken from the editbuffer. If 
this character is not "Or (at the end of the buffer) 
E Zo the rest of the textline is read until a "CRT, 


which indicates the end of the textline. 


EZAS After a 'CR^, the startaddress of the editbuffer 
is moved to the beginning of the next textline 
(making the editbuffer smaller every time), 
and the program returns to the Basic monitor. p 


CB4E Now the textline read from the editbuffer is 

C867 encoded (translated to the *textbuffer code’ and 
inserted in this buffer on the correct place). 
Via #CS18, a next line from the editbuffer is 
fetched. This continues, until the end of the 
editbuffer (a 707) is found. 


Е2АА If all textlines of the editbuffer are encoded 
and inserted in the textbuffer, the encoding input 
switch #0135 is set back to the keyboard. 

E2AD Now the editbuffer disappears: the textbuffer 
and the symboltable are moved to just after the 
heap and all pointers are updated. 


Now further inputs can be made again from the keyboard: 


the program returns to the Basic monitor on #CS18 — #C956. 


(C) — Jan Boerrigter, June 1983 


corrections firmware manual 


The following corrections can be performed in the рат pC 
FIRMWARE MANUAL? : 


– C84E JNC  :C867 Encode textline if editbuf not empty 


- C959 CALL :DDD2 Get first char from line ..- 


— Comments on subroutine CAS7: 


On entry is the pointer to the start of the name in the 
input not in register C, but in register B. 





| Jan Boerrigter, June 1783 
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Almelo, 16-6-1983 ` 


Geachte Heer, 





Ondergetekende zendt U bij deze een complete sourcelisting van 

het beloofde programma, dat het mogelijk maakt dat alle microcomputers, 
welke werken op basis van de 8080,8085 of 280 microprocessor kunnen 
communiceren met de DAIpc in machinetaal via de audio cassette- 
recorder. 

Het complete programma bevat de schrijf- en leesroutines, die via de 
originele DAIpc-interface een machinetaalprogramma op cassette kunnen 
opnemen (CASSrc) en van cassette kunnen lezen (CASSrd), indien het 
micro-systeem van dezelfde interface wordt voorzien. 

Wanneer de adressen waar het programma zich bevindt in een ander 
systeem voor anders doeleinden gebruikt worden, is het uiteraard 
mogelijk het geheel te verplaatsen. Dit zal voor de meeste DAIpc-gebruiker 
die de DNA-assembler kunnen hanteren niet moeilijk zijn. 


Het nut van dit programma komt goed tot uiting in onderwijs situaties, 
waar de DAIpc draait als hulpmiddel voor het ontwikkelen van machine- 
taalprogramma’ в door middel van de ONA-assembler (of de SPL-macro-ass.) 
De door de DNA-assembler gegenereerde objectfiles mebsve ЖР, kunnen 
opgenomen worden op cassette en daarna in het micro-systeem via da 
leesroutine worden ingelezen. Dit bespaart de gebruiker het saaie 
intoetsen van de hex-codes. 

Ondergetekende denkt hiermee vooral de DAIpc-gebruikers met sen 
technische inslag een plezier te kunnen doen. ` 


Mocht er in de toekomst belangstelling zijn voor een CHECK programma 
voor het testen van een opgenomen programma, dan zou ik dit gaarne 

van U horen, 

Reeds eerder hebt U het schrijf programma toegezonden gekregen, daar het 
lsesprogramma nog niet beschikbaar was. Dat schrijf programma kan worden 
vernietigd, daar het nu geleverde programma iets gewijzigd is. 


Met genoegen ziet ondergetekende plaatsing in DAInamic tegemoet. 


Met vriendelijke groeten van een noorderbuur, 


HOOGACHT 





J.J.H. van бо! 
Schierstins 19 

7608 XZ Almelo. NL 
Leraar electronica aan 
de CHR. M.T.S te Almelo. 


8080 cassette routines SDK-85 
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Before you can make use of the routines CASSrc and CASSrd in the SDK 85 
microcomputer, it is necessary to program the routines in anEPROM (8755А) 
and install it at position А15 of the SDK 85 kit. 


Further on the microcomputerkit has to be provided with the same 
cassette-interface as the DAIpc wich has to be connected to port 23H at 
bO and bl. 


Ihe CASSrc routine makes it possible to record a Machine Language Program 
(MLP) on an audio cassette recorder in the same way DAIpc does. A MLP wich 
has been recorded from the DAIpc on audio-cassette, can be read into the 
SDK 85 microcomputerkit with the CASSrd-routine. 

The way of recording and reading programs you can study in DAInamics 
Neusletter no. l4 and 15. (Part 1 and 2 from Mr. Jan Boerrigter) 

The schematics of the cassette-interface you can find in DAInamic no.13 
page 372. 


The CASSrc and CASSrd routines are very usefull for anyone who wants to 
create objectprograms for microcomputersystems and therefore. makes use of 
the DAInamic Assembler or perhaps Sphinx Macro Assembler on the DAIpc( eg. 
in technical tuition) 

The routines can be easily made suitable for other microcomputersystems, 
based on 8085 compatible processors like 8080 and Z80. 


How to use the CASSrc-routine 7 


First you have to insert some data in the SDK 85 with the SUBSI.MEM.—-function 
on addresses you can find in the heading of the sourcelisting. 
The following data have to be inserted; 


NAME : max. 16 hex.dec ASCII characters 

Namelength (NMLG) 

Lowest address of the MLP wich has to be recorded (LADR) 

Destination address of the MLP (DADR). The destination address can be the 
same as the LADR, but it is also possible to load a program on other 
locations in other microsystems. So the DADR has to be different from the 
LADR. 

Highest address of the MLP (HADR). 


Program starting; 


= audio-recorder on 'record'! and start recorder. 
- Type in : (GO) 0800 (EXEC) 


Then the name of the routine (CASSrc) is shoun in the SDK 85 display during 
recording of the MLP. 

When recording is ready the display shows -80 85. 

When the NAMElength is longer than 16 there is an error-reporting (-Err rc) 
in the display and no recording takes place. 

At this moment there isnt a CHECK-routine available, but of course it is 
possible to check your recording on the DAIpc with the CHECK-command in 
BASIC. 


How to use the CASSrd-routine + 





Before starting the CASSrd-routine it is aluays necessary to insert the 
OFFSET with the SUBST.MEM.-function. When OFFS = OOOOH, then the МІР is 
loaded on the address wich is equal to DADR on tape. When OFFS has a higher 
value the loading address becomes DADR + OFFS. So it can be adjusted to 

the microsystem wich is in use. 


URNA 
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Program startingj 


- Type in : (G0) 0900 (EXEC) 
~ Start recorder at the beginning of the МІР that you want to load. 


After starting the CASSrd-routine it displays its oun functionname during 
reading (loading) the MLP and when there are no reading-errors (-Егг rd) 

the reading is ready if -80 85 appears in the display of the SDK 85. 

When there is an error-reporting in the display (-Err rd) the loading is Р 
interrupted from the moment the fault has appeared. Check the volume-level 

on your recorder ! 

When there is a -Err rd error-reporting during reading your МІР, you must be 
sure, that the name of the program wasnt too long at the moment you recorded 
your MLP on DAIpc. Otherwise it is not possible to load the program. 


After loading the MLP without errors it is possible to examine all the 
data with the SUBSI.MEM.-function like NAME, NMLG, LADR, DADR, HADR, OFFS 
on the addresses you can find in the heading of the CASSrd-sourcelisting. 


2.2.Н. van бог 
Schierstins 19 
7608 XZ Almelo. 
Nederland 





bootstrap for screen files 


200 MODE SA:PRINT CHR$(12):COLORT 8 © 9 8:COLORG Ө 5 10 15 

210 РОКЕ #75, #5Е:РОКЕ #74,2:CLEAR #100 

220 PRINT "+*+ DAINAMIC BOOTSTRAP LOADER V1.0 ех. жж": PRINT 

23@ READ BGNADDR%, NMBRY 

249 FOR ADDRZ-BBNADDRZ TO BGNADDRZ+NMBRZ-1 

258 READ BYTEX:POKE ADDR%, BYTEX 

269 NEXT:READ CX: IF CX<>¥FFFF THEN PRINT "DATA READ ERROR": PRINT :END 
276 PRINT "С LOADING UTILITY FILE 1" f 
288 САШ М BBNADDRX 

519 DATA #Е899,95 

520 DATA #31,#00,8F9,H21, #00, #09, #22, #00, 801,4801,8FF, 4821, HCD, HCE, 802, 821 
330 DATA #SD, RER, #11, #SF, #FB, #CD, #D1, #02, 421,800,8CO,4EB, #24, #50, #28, &DC 
340 рата #D1, #02, #CD, #D4, #02, #D2, #AB,#D2, #21,#00,%91,#22, 49D,402,421, HEC 
350 DATA #62,#22, #9B, #02, HCD, #88, #0Е, #СЮ, #5Е, #00, #91, #40, BER, #C3, 492, #08 
368 DATA #AD, #01, #20, #18, #11, 458,820,840, HAF, 841,944, 849, ФДЕ, #47, #20, #42 
378 БАТА #41, 453,849,445, #20,45D,8FF,#8B, #19, #00, #AD, #00, #97, #00, #20, #FFFF 





19 COLORG РЕЕК(#ВЕРЕ) ТАМО ЯҒ РЕЕК(#ВЕРА) IAND ЯҒ PEEK G#BFF&) IAND ЯҒ 
PEEK (#BFF2) IAND ЯҒ 

29 IF PEEK GIBEF1) =#FF THEN МОРЕ 5:5070 36 

25 FOKE #90, #B: МОРЕ 4 

59 GOTO 50 
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SCHRIJFPROGRAMMA "CASSrc мкб" 
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| аза из та за ЖААК CSS TE EE ELE EE EOGIOGEOOIGOE KKK K 
ЖВЕОМ :8080 DNA-ASSEMBLER СНЕ. МТС, ALMELO. 
ЖЕНЕСТЕММІМС :SDk 85 6.144 MHz CLOCK (T2326 nSEC) 
XNAAM ivan QOL 

¥DATUM 297-006-1983 

XBUFFERDIMENSIE ASSEMBLER : 12 

XTELLERSTAND BANDOFMAME VAN 004 TOT 020 

КАЖАА ККЖ OG EG XGIGOEG КИНИ XE XE X a o e E GE GK 
X TOELICHTING: | 
* HET PROGRAMMA SCHRIJFT рата NAAR AUDIO-TAFE 

ж VOLGENS DE DAIpc-METHODE, ALS VOLGT: 

¥ 

K-VOORSIGNAAL (LEADER) CA. 1780 Hz (10%) 

*-FLAGBYTE (SSH) NAAR TAFE 

X-FILE TYPE BYTE (31H)=MLF NAAR TAFE 

x 
X-LENGTE NAAM(2 BYTES) NAAR ТАРЕ + UFD. CHES. LENGTE 
X-UPDATED CHES LENGTEBYTES МААК TAFE 


%-МААМ NAAR TAPE + UPD.CHES NAAM (1340 Hz) 
X-UFDATED CHES VAN DE NAAM NAAR ТАРЕ (670 BAUD) 
D 


K-LENGTE DADR(2 BYTES) МААК TAFE + UFD. CHES. LENGTE 
X-UFDATED CHES VAN DADR-LENGTE NAAR ТАРЕ 

X-DADR NAAR TAPE + UPD, CHES DADR 

X-UPDATED CHES VAN DADA NAAR TAFE 

X 

X-LENGTE DATABLOK(2 BYTES) NAAR TAFE+UFD.CHES. LENGTE 
X-UPDATED CHES DATABLOKLENGTE NAAR TAPE 

ж-ратав ЈЕ NAAR TAPE + UPD. CHES, DATABLOE 

¥-UFDATED CHES VAN DATABLOE NAAR TAPE ` 


LÀ 

K-AFSLUITSIGNAAL (TRAILER) СА. 2140 Hz. 

D 

KINVOEREN m.b.v. SUBST.MEM-TOETS IN SDK 85 

x :20B0 :МААМ V/H FROGRAMMA ) 

x T/M IN HEXDEC &85CII-CODE ) 

Ж :2O0BF ) NAME 


: 2060 
: 2001 


: 2002 


x : LOW-ORDER BYTE LENGTE VAN DE NAAM ) 

x tHIGH-ORDER BYTE LENGTE VAN DE NAAM )NMLG 
X : LOW-ORDER BYTE LAAGSTE ADRES. DATA ) 

X 12003 :HIGH-ORDER BYTE LAAGSTE ADRES DATA )LADR 
X :20C4 : LOW-ORDER BYTE BESTEMMINGSADRES DATA ) 

Ж :20C5 :HIGH-ORDER BYTE BESTEMMINGSADRES DATA )DADR 
X :20C6 : LOW-ORDER BYTE HOOGSTE ADRES DATA ) 

¥ :2007 :HIGH-ORDER BYTE HOOGSTE ADRES DATA ) HADR 
Ж 

D 

D 

x 

D 

D 


DUTFLIT: BO VAN FOORT 23H VIA INTERFACE 
NAAR DINFLUG. 
FROGRAMMA-ABNROEF: 
ZET TAFERECORDER OF QF NAME ! 
(GO) : 2800 (EXEC) 
D 
ХХХ 
МАМЕ EQU 52080 
NMLG EQU : 2000 
LADR EQU : 20C2 
DADR EQU :20С4 
HADR EQU : 20C6 
TAFS EQU  ЗЕЗЕ ТАРЕ SPEED LEADER 1:1 
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SCHRIJFPROGRAMMA "CASSrc vió" 


8080 cassette routines SDK-85 


аза тата REKER KEKEN ERE AE EK 


ЖЕКОМ 18080 DNA-ASSEMBLER CHR.MTS. ALMELO. 
XBESTEMMING :SDE 85 6.144 MHz CLOCK (T2326 nSEC) 
#HAAH :van QOL 

XDATUM :07-06-1982 


XBUFFERDIMENSIE ASSEMELER : 12 

XTELLERSTAND BANDOFNAME VAM 004 TOT 020 
ЖОКЕ ЖЕ КЕХХ ХА ХЖ КЕ ЕЕЕ ЖЕ КЕЗЕ 
Xx TOELICHTING: ; 
Ж HET PROGRAMMA SCHRIJFT DATA NAAR AUDIO-TAFE 

Ж VOLGENS DE DAIpc-METHODE, ALS VOLGT: 

D 

*-VOORSIGNAAL (LEADER) СА. 1780 Hz (10%) 

K-FLAGBYTE (SSH) NAAR TAFE 

¥-FILE ТҮРЕ BYTE (31H) «МІР HAAR TAFE 

H 

X-LENGTE МААМ(2 BYTES) NAAR TAPE + UFD. CHES. LENGTE 
X-UFDATED CHES LENGTERYTES NAAR TAFE 


X-NAAM NAAR TAFE + UFD.CHES NAAM (1340 Hz) 
X-UFDATED CHES VAN DE NAAM NAAR TAFE (670 BAUD) 
Ж 


X-LENGTE DADR(2 BYTES) NAAR- TAFE + UFD.CHKS.LENGTE 
X-UFDATED CHES VAN DADR-LENGTE NAAR TAFE 

X-DADR NAAR TAFE + LIPD.CHES DADR 

*-UPDATED CHES VAN DADR NAAR TAFE 

D 

X-LENGTE DATABLOK (2 BYTES) NAAR ТАРЕНЈРРр. CHES. LENGTE 
X-UFDATED CHES DATABLOKLENGTE NAAR TAFE | 
X*-DATABLOK NAAR TAPE + UPD.CHES.DATABLOK 

X-UFDATED CHES VAN DATABLDE NAAR TAPE 


D 

K-AFSLUITSIGNAAL (TRAILER) Са. 2140 Hz. 

D 

XINVOEREN m.b.v. SUBST.MEM-TOETS IN SDE 85 

Ж :20BQ :NAAM V/H PROGRAMMA ) 

D T/M IN HEXDEC ASCII-CODE ) 

X :20BF ) NAME 


¥ :20CO0 : LOW-ORDER BYTE LENGTE VAN DE NAAM ) 

X :2001 :HIGH-ORDER BYTE LENGTE VAN DE NAAM )NMLG 
Ж 22002 : LOW-ORDER BYTE LAAGSTE ADRES. DATA ) 

Ж :20C3 :HIGH-ORDER BYTE LAAGSTE ADRES DATA )LADR 
X :20C4 : LOW-ORDER BYTE BESTEMMINGSADRES DATA ) 

Ж :2005 :HIGH-ORDER BYTE BESTEMMINGSADRES DATA )DADR 
X :20C6 : LOW-ORDER BYTE HOOGSTE ADRES DATA ) 

X :20C7 :HIGH-ÜRDER BYTE HOOGSTE ADRES DATA ) HADR 
D 

x 

D 

D 

H 

x 


DUTFUT: BO VAN POORT 23H VIA INTERFACE 
NAAR DINFLUG. 
FROGRAMNMA-AANROEF: 
ZET TAPERECORDER OF OPNAME ! 
(60):0800 (EXEC) 

Li 
KREEK 
NAME EQU 2080 
NMLG EQU ` 2000 
LADR EQU : 2002 
DADR EQU 12004 
HADR EQU : 2006 
ТАРБ. EQU AE AF TAFE SPEED LEADER 1:1 
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PAGE 02 SCHRIJFPROGRAMMA "CASSrc V1.0" 





061 TAPSD EQU 1673F TAPE SPEED DATA 5:2 
062 TAFST EQU DASF TAFE SPEED TRAILER 2:3 
065 FUNCT1 EQU :0921 ROUTINE IN CASSrd 

064 FUNCT2 EQU 20939 ROUTINE IN CASSrd 

065 ' ORG 20800 BEGINADRES IN EPROM SDE 85 
066 0800 ЕЗ CASSrc DI BLOEKEER ALLE INTERRUPTS 
067 0801 S1RO20 LXI SP,:20BO0 INIT STACKFNT 

068 0804 CD2608 CALL WROFEN OPENINGSROUT INE i 
069 0807 110200 LXI D,:0002 DADR IS 2 BYTES LANG 

070 овод 21C420 LXI H, DADR 

071 O80D CD4A08 CALL WRBELOK DADR NAAR ТАРЕ 

072 0810 2AC620 LHLD HADR HADR IN (HL) 

073 0813 ER XCHG HADR IN (DE) 

074 0814 2AC220 LHLD LADR- LADR IN (HL) 

075 0817 13 INX В HADF- i 

076 0818 7B _ MOV AGE DATABLOE= (HADR+1) -LADR 

077 0819 95 SUE L ) 

078 0814 SF мом Е.А ) 

079 ов1в 7A MOV 6,0 ) 

080 0816 9C SER H ) 

081 0810 57 ком D.A ) (DE)=(DE)- (HL) 

082 OBIE CD4A08 CALL WRBELOK DATABLOK NAAR TAFE 

085 0821 CDE908 CALL TRAILR AFSLUITROUTINE 

084 0824 FR EI INTERRUFTS TOEGESTAAN 

085 0825 C7 RST О ELAAR: DISFL - 80 85 

086 0826 SEOF WROFEN MVI A, OF INITCODE POORTEN 

087 0828 D320 QUT :20 NASR CSR:FOORT 23H IS ОШТЕ.. 
088 082A S2FF20 STA 3 20FF INTTCODE NAAR STACK 

089 овгр CD2109 CALL FUNCTI CASS IN ADRESVELD 

090 0820 CD3909 CALL FUNCT? rc IM DATAVELD 

091 0855 CD9008 CALL LEADER VOORS TGNABL 

092 0836 SESS MVI Aria FLAGEYTE 

095 0858 Срабов CALL WREYTE HAAR ТАРЕ 

094 OB3B ЗЕЗ1 MVI A,ral FILE TYFE BYTE (ASCII=1) 5 
095 O83D CDA508 CALL WREYTE MAAR TAPE 

095 0840 2АСО20 LHLD  NMLG NMLG-ADRES 

097 0845 ЕВ XCHG NMLG IN (DE) 

098 0844 С07808 CALL LGTST TEST LENGTE V/D NAAM 

099 0847 21B020 LXI H, NAME FNT NAAR BEGINADRES NAAM 
100 0844 CDSDOB8 WRELOE CALL WRENT POINTERS NAAR TAPE 

101 084D 0456 MVI B, : 56 INIT CHECKSUM 

102 ОВАР 7A WELOE MOV — &,D ) 

103 0850 B3 ORA Е ) BLOETELLER 

104 0851 CA7308 JZ WRCHES BLOR=07 CHES МААК TAPE 

105 0854 18 DCX D VERLAAG BLOKTELLER i 
106 0853 7E MOV ` GAN DATA NAAR ACCU 

107 0856 25 INX H VERHOOG RAM-FOINTER 

108 0857 CD6COB8 CALL WDUFDC DATA NAAR TAPE + UFDATE CHES 
109 O8SA С54ҒОВ JMF ` WELOK VOLGENDE DATABYTE 

110 OBSD 0456 WRPNT = MVI В,:56 INIT CHECKSUM 

111 O85F 7A MOV GD HIGH-DRDER-LENGTERYTE 

112 0860 Срасов CALL ` WDUFDC МААК TAFE + UFD CHES 

113 0863 7B MOV GE LOW-ORDER-LENGTEBYTE 

114 0864 CD&CO8 CALL — WDUPDC NAAR TAPE + UPD CHES 

115 0867 78 MOV A,B CHECKSUM BLÜELENGTE 

116 0848 ‘CDA608 CALL WREYTE NAAR TAFE 

117 О85В C9 “КЕТ 

118 OBSC CDA608 WDUFDC CALL WREYTE DATARYTE NAAR ТАРЕ 

119 O86F AG ХКА В BEFAAL CHES DATABYTE 

120 0870 07 RLC ROTEER CHES 
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181 0804 EI POP РЫ 

182 0805 Co RET n 

183 0806 3EO1 OUTPUT MVI А, :01 вог" 1" 

184 оврв D323 OUT — :23 START POS.PERIODENTIJD 

185 O8DA 25 DELI DCR H VERLAAG TAFSL/D/T 

186 оврв с2раов JNZ DELI WACHT HALVE PERIODETIJD 

187 ОВРЕ 2D DCR L 

188 OBDF 2D DCR L | 
189 ОВЕО 2D DCR L (SYMMETRIE) | 
190 ОВЕ! 3D DCR A Béise On 

191 ОВЕ2 D323 QUT | :25 START NEG. PERIODENTIJD 

192 OBE4 2D DELZ DCR L VERLAAG TAFSL/D/T | 
193 OSES С2Е408 INZ DEL? WACHT HALVE PERIODENTIJD 

194 OBEB C9 RET 

195 08Е9 21ЗЕ2А TRAILR LXI  H,TAPST  SIGNAALVERHOUDING 2:3 

196 OBEC 010001 LXI  B,:0100  TIJDSDUUR TELE ` 

197 ОВЕР С29008 JME TONE GENEREER TRAILER ` 

198 ОВЕ? END END | 


ХХХ КЕ КЕЛ ЕЕЕ ХЕ ЖЕ ЕЕЕ ХХ 
ЖЗҮМВЕСІ ТАНГЕ} 
ХХХ ХХХ АХА А ХХХ ХХ Ж ЖҰ KE 


CASSrc 0800 DADR 2004 DELI овра DELE (08Е4 
ЕМР O8F2 ERROR 0884 FUNCTI 0921 FUNCT2 0959 
HADR 2006 LADR 20C2 LEADER 9890 LGTST 0878 
NAME 20B0 ММБ 20C0 OUTPUT 0806 TAFSD &93F 
TAPSL  3F3F TAPST 2A3F TONE 0894 TRAILR OSE? 
WBLOK  Q84F WEYTE O8B1 WDUPDC OBAC WREIT  O8C3 
WRBLOK 0844 WREYTE 0866 WRCHES 0872 КОРЕМ 0826 
WRFNT 085D 





0800 F3 21 BO 20 CD 26 O8 11 02 00 21 C4 20 CD 4A 08 
0810 2A C6 20 EB 24 C2 20 13 7B 9S SF 7A 9C 57 CD 4A 
0820 08 CD E9 08 FB C7 SE OF D3 20 32 FF 20 CD 21 09 
0850 CD 39 09 CD 90 08 ЗЕ 55 CD А6 08 ЗЕ 21 CD Ab op 
0840 2А CO 20 ЕВ CD 78 08 21 BO 20 CD 5D 08 04 56 7A 
0850 ВЗ CA 73 08 1B 7E 23 CD 6C 08 Сз 4F 08 Ob 56 7A 
0860 CD 6C 08 7B CD C 08 78 CD А6 08 су CD 66 08 AB 
0870 07 47 C? 78 CD A6 08 C? 7A B7 C2 84 08 78 FE 11 
0880 D2 84 08 C9 АҒ 47 21 9E 05 CD B7 02 FB C3 &6 00 
0890 21 3F SF 01 ЕВ 07 CD C3 08 OR 78 Е1 CE 96 08 21 
OBAO SF 69 CD C3 08 C9 FS CS DS ES 21 ЗЕ 69 SC 55 o 
овво ОВ 17 DC C3 08 EB D4 C3 08 ЕН 05 C2 Bi 08 El Di 
O8CO Ci F1 C9 FS ES 6C CD Dé 08 Ei ES 65 7D Dé 08 SF 
овро CD Dé ОВ El Fi C9 ЗЕ 01 D3 23 25 C2 DA 08 2D 2D 
OBEO 2D SD DS 23 2D C2 E4 08 C9 21 SF ZA 01 OO O1 C3 
OBFO 98 08 20 
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002 PCOS OSS CCC CCC COL CO SCC КЕККЕ КЕКЕК 
005 XBRON : 8080 DMA-ASSEMBLER CHR.MTS ALMELO 
004 XBESTEMMING : SDE8S 6.144 MHz CLOCK (T=3246 nSEC) 
005 ЖМААМ : van OOL 

006 XDATUM : 07-06-1983 

007 XTELLERSTAND BANDOFNAME VAN O20 TOT 075 

008 XBUFFERDIMENSIE ASSEMBLER : 12 

Q09 X ooo ККЕ ЕКЕ КЕ ЖЖЖ ЖЕЖ КЖ ЖЕХХАХ ХХ ЖЕ ХЕ RAK AKK ЖҰ ЖҰЗ 
010 XTOELICHTING: 

011 * HET PROGRAMMA LEEST DATA VAN AUDIO-TAFE 

012 ж VOLGENS DE раїрс-МЕТНОрЕ. VERDER WORDEN 

013 * ONDERSTAANDE FOINTERS IN HET GEHEUGEN 

014 X GEPLAATST, ZODAT EEN GELEZEN FROGRAMMA 

015 * ZONDER VEEL VOORBEREIDING OOK WEER KAN 

016 Ж WORDEN OPGENOMEN M.B.V. CASSrc V1.0. 

017 * HET PROGRAMMA TEST NIET OF HET TE LADEN 

018 * FROGRAMMA PAST IM DE BESCHIERARE 

019 Ж BEHEUGENRUIMTE VAN DE SDK 85 ! 

020 ¥ N.B.: DE OFFSET MOET VOOR HET STARTEN 

021: D VAN HET CASSrd-FROGRAMMA WORDEN 

022 x INGEVOERD, HET IN TE LEZEN FROGRAMMA 

023 D WORDT OF EEN FLAATS IN HET 

024 D GEHEUGEN(LADR) GEZET, WELKE GELIJK IS 

025 Ж AAN (DADR+OFFSET) 

026 * DE OFFSET MAAKT HET MOGELIJK EEN PROGRAMMA, 

027 * INDIEN NOODZAKELIJK, OF EEN ANDER ADRES 

028 Ж IN TE LEZEN, DAN OF DE CASSETTE- 

029 Ж BAND STAAT. (LADR=DADR+OFEG) 

050 Ж INDIEN OFFS=0000,DAN IS (LADR=BADR) 

051 x 

O32 ¥ :20В0 zNAAM V/H FROGRAMMA ) 

033 D T/M IN HEXDEC ASCII-CODE ) 

054 Ж :20BF ) МАМЕ 
035 ¥ :2000 : LOW-ORDER BYTE LENGTE V/D NAAM ) 

056 X :20C1 :HIGH-ORDER BYTE LENGTE V/D NAAM )NML.G 
037 X :20C2 : LOW-ORDER BYTE LAAGSTE ADRES DATA ) 

038 X :20C3 :HIGH-ORDER BYTE LAAGSTE ADRES DATA )LADR 
039 X :20C4 : LOW-ORDER BYTE BESTEMMINGSADRES ) 

040 Ж :2005 :HIGH-ORDER BYTE BESTEMMINGSADRES ) DADR 
041 X :2006 : LOW-ORDER BYTE HOOGSTE ADRES DATA ) 

042 Ж :20C7 :HIGH-ORDER BYTE HOOGSTE ADRES DATA )HADR 
043 Ж :2008 : LOW-ORDER BYTE OFFSET ) 

044 ¥ :2009 :HIGH-ORDER BYTE OFFSET ) OFFS 
045 D 

046 Ж INPUT: Bi VAN FOORT 23H VIA INTERFACE 

047 D | NAAR DINFLUG 

048 * PROGRAMMA-AANROEF: 

049 D (60): 0900 (EXEC) 

050 * START DAARNA DE CASSETTERECORDER ВАМ HET 

051 * BEGIN VAN HET TE LADEN FROGRAMHMA. 

052 изазивао 1443. 
055 ` NAME EQU :2080 NAAMADRES 

054 NMLG EQU :20С0 

055 LADR EGU DZODZ 

056 DADR EQU : 2004 

057 HADR EGU : 20C6 

058 OFFS EQU :20C8 

059 ERROR EQU :0884 ROUTINE IN CASSrc 


050 LGTST EQU :0878 IDEM 





DAInamic 83-17 - 239 


nee NENNEN. 


PAGE 02 LEESPROGRAMMA "CASSrd 
061 ORG 
067 0900 EA CASSrd DI 
063 0901 51В020 | LXI 
064 0904 CD5909 CALL 
065 0907 21C420 LXI 
066 0904 CDB8DO9 CALL 
067 090D 2AC420 LHLD 
068 0910 EB XCHG 
069 0911 2АС820 LHLD 
070 0914 19 DAD 
071.0915 220220 SHLD 
072 0918 CD8D09 CALL 
073 091В 2B DCX 
074 0710 22C620 SHLD 
075 O91F ЕВ EI 
076 0920 C7 RST 
077 0921 5Е90 FUNCT1 MVI 
078 0923 320019 STA 
079 0926 SE&C MVI 
080 0928 320018 STA 
081 092В 3E88 MVI 
082 092D 320118 STA 
083 0950 ЗЕ29 MVI 
084 0932 520218 STA 
085 0955 320218 STA 
086 0938 C9 RET 
087 0939 5Е94 FUNCT2  MVI 
088 0758 520419 STA 
089 O93E ЗЕҒА MVI 
090 0940 320418 STA 
091 0943 SE7A MVI 
092 0945 320518 STA 
095 0948 C9 RET 
094 0949 SEGA FUNCTS MVI 
095 094B 320419 STA 
096 094E ЗЕРА MVI 
097 0950 320418 STA 
098 0955 ЗЕ1А MVI 
099 0955 320518 STA 
100 0958 C9 RET 
101 0959 CD2109 RDOFEM CALL 
102 0950 CD4909 CALL 
103 O9SF ЗЕОЗ MVI 
104 0961 D320 DUT 
108 0985 52ҒҒ20 5ТА 
106 0966 CDCFO9 START CALL 
107 0969 CD230A ^. CALL 
108 0760 DA&609 JC 
109 O96F FESS CFI 
110 0971 C26609 JNZ 
111 0974 CD230A CALL 
112 0977 DA^6609 JC 
113 0978 РЕЗ1 CPI 
114 097C C26609 JNZ 
115 097F 21B020 LXI 
116 0982 CD8DO9 CALL 
117 0985 CD7808 CALL 
118 0988 ER XCHG 
119 0989 220020 SHLD 
120 O98C C9 RET 
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91.0" 
:0900 


SP, 12080 
RDOPEN 
H, DADR 
RDELOK 
DADR 


OFFS 

D 

LADR 
RDBLOK 
H 

HADR 


о 
А,:90 
: 1900 
А, :5С 
:1800 
А, : 898 
:1801 
А, :2 
:1802 
: 1805 


8,:74 
:1904 
A, FA 
71804 
һ,:7А 
: 1805 


А,:94 
11904 
A, :FA 
: 1804 
A,:14 
21805 


FUNCT1 
FUNCTa3 ` 
A,:03 
:20 
:ZOFF 
RDLEAD 
RDEYTE 
START 


255 


START 
RDBYTE 
START 
ral 
START 
H, NAME 
КОН OK 
LGTST 


NMLG 


BEGINADRES IN EPROM SDE 85 
GEEN INTERRUPTS TOEGESTAAN 
INIT STACKFNT 
QPENINGSRDUTINE 

(HL) «DADR-ADRES 

LEES DADR VAN TAFE 

(HL) =DADR 

DADR IM (DE) 

OFFSET IN (HL) 
LADR=DADR+OF FSET | 
LADR-SDRES IN SDK 85 RAM А 
LEES DATABLOK VAN TAPE 
(HL) =HADR 

HADR IN RAM 

INTERRUPTS TOEGESTAAN 
KLAAR: DISPL - 80 85 
ADRESVELDCODE 

NAAR COMMANDREG. 

C 

NAAR DISFLAY 

a 

IDEM 

5 


© 


DATAVELDCODE | 
NAAR COMMANDREG. 
= 

NAAR DISPLAY 

с 

NAAR DISFLAY 


DATAVELDCODE 
МААК COMMANDREG. ? 


к 


NAAR DISPLAY 





d 


CASS IN DISFLAY: 

rd IN DISPLAY 

INIT-CODE VOOR FOORTEN 
FOGRT 23H IS INFUT 
INITCODE NAAR STACK 

LEES VOORSIGNAAL VAN TAPE 
LEES FLAGRYTE SSH VAN TAFE 
CY=LEESF QUT 

TEST FLAGBYTE 

TEST MIET ОК>РАМ OPNIEUW 
LEES FILE-TYFE BYTE VAN TAFE 
CY=LEESFOUT 

TEST FILE-TYFE 

SIH=ASCII "1" = MLP 

ADRES FRGR-NAAM 

LEES NAAM VAN TAFE 

TEST DE LENGTE V/D NAAM 
LENGTE NAAM IN (HL) 

NMLG IN RAM 
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121 0980 CDABO? RDBLOK CALL RDFNT LEES LENGTEPNMT VAN TAFE 
122 0990 DS FUSH D BEWAAR LENGTEFÜINTER 
123 0991 DAB408 JC ERROR CY = LEESFOUT 

124 0994 B7 ОКА А TEST CHES 

125 0995 C28408 JNZ ERROR CHES FOUT 

126 0998 0656 MVI В,:56 INIT CHES 

127 0994 7A RBLOK MOV 8,0 ) 

128 9978 BS DRA E )DATABLOKTELLER 

129 0970 САС509 JZ RDCHES DATABL.=O7LEES CHES 

130 O99F 18 DCX D VERLAAG ELOETELLER 

131 0780 CDBAO?7 CALL RDUFDC LEES DATA+UFD CHES 

132 0785 DA8408 JC ERROR CY=LEESFOUT 

133 0986 77 MOV ма ZET DATA IM RAM 

134 0947 25 | INX H VERHOOG RAMPNT 

135 0788 С59А09 JMP ` КЕШЕ LEES VOLG. DATARYTE 

136 O9AB 0636 RDPNT MVI В,:56 INIT CHES 

137 O9AD CDBAO9 CALL RDUFDC LEES DATAtUFD CHES 

138 ово 57 MOV ODA HIGH-QRDER BYTE LENGTE 
159 0961 D4BA09 ENC RDUFDC LEES DATA+UFD CHES 

140 0984 SF | MOV Е.А LOW-ORDER BYTE LENGTE 
141 O9BS D4230A СМС RDBYTE LEES CHES LENGTE 

142 0988 90 SUB E VERGELIJKE CHES EN UFD-CHES 
145 0989 C9 RET 

144 ОВА CD23060 RDUFDC CALL  RDBYTE LEES DATA VAN TAFE 

145 0увр F5 FUSH FSW BEWAAR DATABYTE 

146 O9BE А8 ХА В BEFAAL CHES 

147 O9BF 07 RLC RÜTEER CHES 

148 09С0 47 MOV В.А UPDATED CHES IN B 

149 O9C1 F1 FOF ` PM HERSTEL DATABYTE 

150 09C2 C9 RET 

151 09705 CD230A RDCHKS CALL RDBYTE LEES CHES VAN TAPE 

152 0906 DAB408 JC ERROR CY=LEESFOUT 

153 09С9 88 CMP В VERGELIJK: CHES EN UFDCHKS 
154 О9СА C28408 JNZ ERROR CHES FOUT, DAN FOUTMELDING 
155 O9CD DI РОР D HERSTEL LENGTEFOINTER 
156 O9CE C9 RET 

157 ОУСЕ 0628 RDLEAD  MVI B,40 GESCHATTE FULSDUUR 

158 09рі DB23 NOSIGN IN 253 LEES РООКТ 23H 

159 0905 E502 AMI :02 SELECTEER Bl 

160 O9D5 C2D109 JNZ NOQSIGN WACHT ОР LDRSIGN 

161 0908 48 MOV С.В БЕЗСНАТТЕ „МЕКЕ, FULSDUUR 
162 0909 1614 MVI D,20 MINIMAAL AANTAL LDRPULSEN 
165 09DE 1Е00 CYCLE MVI E, 0 LEESCYCLUS 

164 O9DD 1D DELAY? DCR Е FULSDUURTELLER 

165 090Е CAD109 JZ NOSIGN GEEN SIGN. рам OPNIEUW 
166 09Е1 DEZ3 IN DX LEES FOQRT 23H 

167 ОФЕЗ E502 ANI :02 SELECTEER Bi 

168 O9ES CADDO? | JZ DELAY? Бі="0", DAN WACHT 

169 O9EB 0600 MVI D.O INIT LORCHECE 

170 O9EA 04 LDRCHE INR В СЕ) =GEME TEN FULSDUUR 
171 O9EB CAD109 JZ NOSIGN GEEN SIGN, FDAN OFNIEUW 
172 ОФЕЕ DR23 IN кез LEES INFUTPOORT 

175 09ҒО E602 ANI 202 SELECTEER El 

174 O9F2 00 NOF 

175 Q9F3 С2ЕАҺ09 JNZ LDRCHE WACHT OF LAAG SIGNAAL 
176 09Ғ6 78 MOV А,В PULSDUUR IN (A) 

177 O9F7 91 SUB С BEREKEN VERSCHIL FULSDUUR 
178 09ҒВ F2FDO9 JF TESTY "UL SDUUR STANDAARD? 

179 O9FB 2F CMA FULSDUURZSTANDAARD? DAN 


180 O9FC 3C INK A BEPASL FOS. WAARDE 
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181 O9FD SF TESTA MOV Е,А FOS.WAARDE VERSCHIL IN (E) 
182 O9FE 79 MOV А.С STANDAARD FULSDUUR IN (A) 
183 O9FF ЕБЕО ANI :FO ) 
184 0801 IF RAR ) BEREKENING VAN TOEGESTANE 
185 0502 IF RAR YAFWIJEING (107) 
186 OAQS IF RAR ) (А) =04 IS 10% VAN 40 (C) 
187 0504 ВВ CMP E VERSCHIL -TOEGESTANE ^? 
188 одоз DA100A Jc NOSYNC VERSCHIL?10%, DAN NOSYNC 
189 OAOB 15 DCR D LDRFULSTELLER 
190 ОАО9 С20В09 JNZ CYCLE HERHAAL CYCLUS TOTDAT (D)=0 
191 ОАОС 14 ІМ D BIJ SYNC: (0) =01 
192 OAQD C3DBO? JMP CYCLE GA DOOR TOT ASYNCHRONE FULS 
193 0810 15 NOSYNC DCR OD BIJ SYNC: (D)=00 
194 0411 C2D109 JNZ NOSIGN DEEN SYNC: DAN OPNIEUW 
195 0814 DB23 LOW IN :23 LEES ASYNCHRONE LDRFULS 
196 0816 E602 ANI :02 SELECTEER DI 
197 0818 СА1408 JZ LOW WACHT OF HOOG SIGNAAL 
198 OALE DE23 HIGH IN :25 LEES ASYNCHRONE LDRFULS 
199 OAID E602 ANI :02 SELECTEER Di 
200 OAIF C21B0A JNZ HIGH WACHT OF LAAG SIGNAAL 
201 ОА22 C9 RET 
202 0А25 CS RDEYTE PUSH В 
203 0024 DS PUSH D 
204 0825 ES FUSH Н 
205 OA26 1ЕҒЕ MVI E,:FE BYTETELLER 
206 OAZB CD39060 RBYTE CALL RDEIT LEES BIT VAN TAFE 
207 OAZE DASSOA JC РОРКЕТ CY-LEESFQUT. 
208 OAZE 17 RAL ROTEER BITWAARDE(B7) IN CY 
209 OA2F 7E A MOV AE BYTETELLER IN ACCU 
—210 08350 17 - RAL BYTETELLER*RIT(S) IN (A) 
211 0831 SF. MOV Е.А BEWAAR BYTETELLER +EIT (8) 
212 0832 DA280A JC RBYTE VOLGENDE BIT.8 BITS=BYTE | 
213 0853 EI" POPRET FOF  H 
214 OA36 Di FOF OD 
215 0837 Ci FOF В 
216 GASB C9 RET 
217 08359 AF RDRIT XRA А RESET А,В,С, EN CY 
218 ОАЗА 57 MOV — D,À INIT PERIODE- 
219 OASH 47 MOV ва TIJDENDELAYS EN 
220 OASC AE ` MOV С.А BITWAARDETELLER IN (D) 
221. OASD 05 NEG1 DCR E BEGIN NEG.FERIODENTIJD 
222 ОАЗЕ СА7ООА JZ SETCY SIGNAALONDEREREK ING?=CY 
225 0841 DR23 IN #25 LEES РООКТ 23H 
224 0843 E602 ANT :02 SELECTEER R1 
225 OA45 CA3DOA JZ NEG1 NOG STEEDS NEG.? 
226 OA48 OD FOS1 рск C BEGIN POS, FERIODENTIJD 
227 0849 CATOOA JZ SETCY SIGNAALONDERBRERING?=CY 
228 OA4C 15 DER D VERLAAG EITWAARDETELLER (DI) 
229 OA4D DEZI IN 125 LEES POORT 23H 
230 OA4F E602 ANI 202 SELECTEER Hi 
251 OAS1 C248048 JNZ FOS1 NOG STEEDS FOS1? 
252 0854 010000 LXI B,:0000 RESET (BC) 
255 0857 05 NEGA DCR ÈE BEGIN NEG.PERIODENTIJD 
234 0858 CA700A JZ SETCY SIGNAALONDRBREEING?ZUY 
235 OASB DB23 IN 2:25 LEES FOORT 23H 
256 OASD E602 ANI 202 SELECTEER Bi | 
237 OASF CAS70A JZ NEG2 NOG STEEDS NEGATIEF? 
238 06562 OD FOSS DCR C BEGIN FOS.FERIODENTIJD 
259 0863 CA700A JZ SETCY SIGNAALONDERBREK INGT=CY 
240 0866 14 ^. INR D VERHOOG BITWAARDETELLER (BW?) 
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241 0867 DB23 IN 223 LEES FOORT 23H 

242 0869 E602 ANI :02 SELECTEER ВІ 

245 OAGB C2620A JNZ FOS2 NOG STEEDS FOS2? 

244 GAGE 7A MOV A‚D | БИ1УВИ2ЕБЇТЫААКРЕ="1" (B7) 
245 ОВБЕ C9 RET EWIR EW2: EBI TWAARDE="G" (B7) 
246 0470 57 SETCY STC ZET CY VOOR FOUTMELDING 
247 0471 C9 RET 

248 0872 END END 


TOOK boo eere 
X SYMBOL TAELE X 
1253455355235882495498943%45) 


CASSrd 0900 CYCLE O9DR DADR 2004 DELAYS OFDD 
END 0472 ERROR 0884 FUNCTI 0921 FUNCT2 0939 
FUNCT3 0949 HADR 2006 HIGH OAIE LADR 20C2 
LDRCHE O9EA LGTST 6878 LOW 2814 MAME ZED 
NEGI ATID NEGZ 0857 NMLG ZODO NOSTGN 0901 
NOSYNC OAIO OFFS 2008 FOPRET 0855 NSA 048 
FOS2 0862 RBLOÜK 0994 КВУТЕ 0828 RDHIT OAS? 
RDBLOK 0720 RDBYTE ОА25 RDCHES O9C3 RDLEAD O9CF 
RDOPEN 0959 RDFMT  O9AR RDUFDC OPERA SETCY AG 
START 0966 ТЕСТА O9FD 


0900 F3 51 BO 20 CD 89 09 21 C4 20 CD 8D OF BA C4 20 
0910 EB 2A CB 20 19 22 C2 20 CD BD 09 ZH 22 Cé 20 FB 
0920 C7 ЗЕ 90 32 00 19 ЗЕ АС 32 00 18 ЗЕ 88 22 01 18 
0930 ЗЕ 29 32 02 18 32 O3 18 C9 3E 94 32 04 19 ЗЕ FA 
0940 32 04 18 SE JA 32 OS 18 C9 SE 94 32 04 19 3E FA 
0950 32 04 18 ЗЕ 1A 32 05 18 C9 CD 21 09 CD 45 07 ЗЕ 
0960 03 05 20 32 FF 20 CD CF 09 CD 23 ОА DA 66 OF FE 
0970 55 CZ 66 09 CD 23 OA DA 66 09 FE 31 C2 66 OF 21 
0980 BO 20 CD 8р 09 CD 78 08 EH 22 CO 20 C? CD AR 09 
0990 DS DA 84 08 B7 C2 84 08 06 56 7A BS CA C3 09 1B 
O9A0 CD BA 09 DA 84 08 77 23 C3 9A 09 O6 56 CD BA OF 
09В0 57 D4 BA 09 SF D4 23 OA 90 C9 CD 23 OA FS AB 07 
0960 47 Рі С? CD 23 OA DA 84 08 B8 C2 84 08 Di C9 06 
0900 28 DE 23 Еб O2 C2 Di 09 48 16 14 1E OO iD CA Dt 
09Е0 09 DB 25 ЕБ 02 CA DD OF 06 OO O4 CA 01 09 DB 23 
ü9FO Eé 02 00 C2 EA 09 78 91 F2 FD 09 2F AC SF 79 ES 
OAOO FO ЈЕ IF ЈЕ BB DA 10 OA 15 C2 DB 07 14 C3 DE OF 
OALO 15 C2 рі 09 DB 23 ES 02 CA 14 OA DR 23 Ей 02 C2 
ОА2О 1B OA C9 CS DS ES ЈЕ FE CD 39 OA DA 55 OA 17 7B 
OASO 17 SF DA 28 OA Е1 Di Ci C9 AF 57 47 ДЕ OS CA 70 
0840 OA DB 23 E6 ОЗ CA ED ОА OD CA 70 OA 18 DB 23 Ба 
OAJO 02 C2 48 OA 01 00 00 08 CA 70 OA DB 23 Её O2 СА 
OA6O 57 OA OD CA 70 OA 14 DB 23 £6 02 C2 62 OF 7A CP 
0470 37 C9 00 
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18 PRINT CHR#(12):LIST 20-240:CALLM #рара 
28 REM +ЯНННННИНННННННИНННННННННННННННИННННННННННННННЕ 


3 REM iHHHHHHHHE PROGRAMME ECRIT ET REALISE ННН 
40 REM tfHHHHHHHBHE PAR ИННННННННЕ 
50 REM ЕНЕНЕ THERE 
Zë REM 1HHHEHHBHE Fabrice DULUINS ЭННННННННЕ 
76 REM ЭННННННННЕ THHHHEH EH E 
86 REM ЭНННННННННННННННННННИННННННИНИНННННННННННННННННЕ 
72 REM ЭННННННННЕ N.B : 1HHHHHHEHUE 
188 БЕМ IHHHHHHHHE THHHHHHEHE 
110 REM IHHHHHHHHE JE CHERCHE CORRESPONDANTS  dHHHHHHHHE 
120 КЕМ НННННННН ПЕ TOUT PAYS EN VUE НЕНА | 
13 REM iHHHHHHHHE 0° ECHANGES DE PROGRAMMES #ННННЫНЕ | 
146 КЕМ iHHHEHHHBE INEDITS THHHHHHHHE 
150 REM IHHHHHHHEE THHHHHHHHE 
166 REM ННННННННЕ ECRIRE A : ЭЗНИНННННЕ | 


170 REM ЖЕННЯ AHHHHHHHBE | 
180 REM iHHHHHHHHE Fabrice DULUINS IHHHHHHHHE 

199 REM iHHHHHHHHE A allee de la Tour Renard  dHHHHHEHHE 

200 REM tHHHHH B - 1400 NIVELLES IHHHHHHHHE 

218 REM IHHHHHHHHE BELGIQUE IHHHHHHHUE 

220 REM RSR 1HHHHHHHHE 

236 REM ЭНННННННН: SPACEBAR  d4HHHHHHHER 

240 REM ЭНННИНННИННННННННННННННННННННННННННННННННННННННЕ 

256 MODE @:PRINT CHR$(12.0) :PRINT "PRODUITS REMARQUABLES 


260 PRINT "FORMULES DE SIMPSON 2" 
270 PRINT “MOYENNE ARITHMETIQUE 3" 
280 PRINT "CERCLE DETERMINE FAR TROIS POINTS 4" 

PRINT "HARMONIC NUMBER : 5" 
5 PRINT "LOGARITHME SUR N'IMPORTE QUELLE BASE А" 
318 PRINT "EQUATION DU SECOND DEGRE ҒА 
320 PRINT "SYSTEME D'EGUATIONS А 2 INCONNUES 8" 
559 PRINT "NOMBRE PREMIER ET PLUS PETIT FACTEUR 9" 
540 PRINT "ALL GRAPHES io" 
250 PRINT :PRINT "STOP HALT- ":INPUT "VOTRE 
CHOIX ";А% 





366 PRINT CHR$(12): IF A$="1" GOTO 486 
370 IF A$-"2" GOTO 580 
38e IF А$="5" GOTO 716 
296 IF Af="4" GOTO 830 
400 iF A$-"5" GOTO 1220 
410 IF A$-"5" GOTO 1186 
420 IF A$-"7" GOTO 1500 
450 IF A$="8" БОТО 1566 
446 IF Аф="9" GOTO 1746 
458 IF a$-"10" GOTO 1980 
459 IF A$-"HALT" THEN 479 


Programmes mathemati ques 


480 PRINT CHRS(12):PRINT " PRODUITS REMARBUABLES" 
499 PRINT : PRINT "(O*B)^2 = A^2 + 2#A*B + B^2" 

300 FOR 1=1.0 TO NB 

510 PRINT :PRINT "(A-B)^2 = 4^2 — 2eAeB +В^2" 

32 PRINT :PRINT "(A*B)*(A-B) = 672 -B^2" 

558 PRINT :PRINT "(A+B}*3 = 603 + SX4^2*B + 3eARB*? + Воз" 
240 PRINT :PRINT "(A-B)^3 = 475 - S&A^Z2*B + Зважвеа — Воз" 
550 PRINT :PRINT "(iA-B)*(A^2 + АВ + B^2) = A^3 - Воз" 

360 PRINT :PRINT "(A&*B)*(A^2 — A*B + B^Z) = ANS + BSE" 

578 WAIT TIME 154:G0TO 250 

5880 PRINT " FORMULES DE SIMPSON " 





596 PRINT :PRINT "COS P + COS Q = 2 ж COS (Р+0) /2 ж COS (P-@)/2" | 
800 PRINT :PRINT "COS P - COS 0 = 2 + COS (P+Q)/2 ж COS (P-Q)/2" d 
818 PRINT :PRINT "SIN P - SIN Q = 2 # SIN (P+Q)/2 + COS (Р-0) /2" | 
620 PRINT :PRINT "SIN P ~ SIN Q = 2 ж COS (P+Q)/2 ж SIN (P-Q) /2" d 

A ж COS В + SIN A * SIN В" Ы 


630 PRINT : PRINT "COS (A-B) = COS 
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6480 
550 


i" 


PRINT :PRINT "COS (A+B) 
PRINT :PRINT "SIN (A+B) 
PRINT :PRINT "SIN (A-B) 
PRINT :PRINT "TG {A+-B) 
PRINT :PRINT "SIN 2*4 = 


= 2 * SIN A + COS А" 
PRINT :PRINT "COS 2*4 = 


Om nt Ho H 


WAIT TIME 15@:G0TO 250 

PRINT " MOYENNE ARITHMETIDUE " 

LET X-6.6 

LET N-06.60 

PRINT :PRINT "ENTREZ LE NOMBRE ": 

INPUT W 

IF W-e.e GOTO 250 

LET N-N41.0 

LET X=X+W 

LET A-X/N 

PRINT :PRINT " N= ";N;" LE NOMBRE EST "iW 
PRINT "LA MOYENNE EST DE "SA 

GOTO 740 

PRINT " CERCLE DETERMINE PAR TROIS PDINTS" 
PRINT :INPUT "COORD DU ie PT ="3X1,¥1 

PRINT : INPUT "COORD DU 2e PT ="; Х2,Ү2 

PRINT : INPUT "COORD DU Зе PT =";X3, Y3 

LET A=(Y¥2-Y1) /(X2-X1) 

LET Bz(Y3-Y1)/ (X3-X1) 

LET C=CCX2-X1) (ха и) D Yr CUYZ-YIO) & (У2+У1)) 
LET D=C/ (2.08% (X2-X1)) 

LET E={{X3-X1)}#*{(X3+X1))+((Y3-Y1)}*(Y3+Y1)?} 
LET Е-Е/ (2.0% (X3-X1)) 

LET Y@=(F-D) / (B-A) 

LET Xe-F-(B*YO) 

LET R=SQR ( (ABS (X3—-X@) ) ^2. ©+ (ABS (Y3-Y0) 3^2. 0) 
PRINT :PRINT "COORD DU CENTRE X@,¥O = ":iX0;","5 YO 
PRINT "RAYON = "GR 

PRINT : PRINT "POUR CONTINUER TAPEZ SUR 1,S5INON SUR e" 
INPUT L 

IF L=1.@ THEN GOTO 842 

GOTO 250 

PRINT " HARMONIC NUMBERS" 

PRINT : PRINT "NOMBRE MAXIMUM DE TERMES" 
INPUT N 

LET Keep, a 

LET D-06.6 

PRINT :PRINT "NOMBRE DE TERMES , VALEUR" 

FOR I-0.0 TO N 

LET K=1+1.9 

LET C-1.0/K 

LET D=D+C 

PRINT K,D 

NEXT I:PRINT 

PRINT "POUR CONTINUER TAPEZ SUR 1,SINON SUR 6" 
INPUT L 

IF L=1.6 THEN GOTO 1220 

GOTO 256 

PRINT :PRINT " LOG OF ANY BASE" 

REM BASE Y 

PRINT : INPUT " BASE = "5 

PRINT <INPUT " X = "5X 

J=LOG(X) /LOG CY) 

PRINT :PRINT " LOG "3X3" EN BASE "Үр" = "sd 
PRINT :PRINT "POUR CONTINUER ТЕРЕ? SUR 1,S5INON SUR e" 
INPUT L 

IF L-1.0 THEN 1286 

GOTO 250 

PRINT 


COS A * COS B - SIN A * SIN B" 
SIN A * CDS B + COS A * SIN B" 
SIN А * COS B - COS A * SIN B" 
(TG а +- TG В)/(1 — TG A * TG В)" 


DS8^2 A - SIN^2 A = 1 - 2 *SIN^2 A = 2 ж 2057 
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1290 
1590 
1510 
1520 
1550 
1540 
1550 
1366 
1376 
1580 
1590 
1400 
1410 
1420 
1459 
1440 
1459 
1450 
1470 
1489 
1490 
1500 
1510 
1520 
153 

1546 
1550 
1546 
1576 
1580 
1590 
1600 
1610 
1529 
1639 
1549 
1456 
1646 
1470 
1488 
1490 
1700 
1710 
1729 
1730 
1748 
1758 
1750 
1770 
1780 
1790 
1860 
1816 
1820 
1838 
1846 
1850 
1858 
1872 
1888 
1890 
1900 
1910 
1920 
1930 
1949 
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GOTO 1206 

PRINT " EQUATION DU SECOND DEGRE" 

PRINT :PRINT " AX^2 + BX +C = а" 

PRINT : INPUT "ENTREZ LES VALEURS DE А, B, ET C "А,В,С 

D=( (ABS (В) ^2.0) – (4, @#A#C) 2 / (4, O&ABS (4) 72. 0) : PRINT :PRINT " D= "sD 
IF 0>=0.9 THEN 1418 

X-B/ (2. 0*0) 

Y= (SER { (4. OX AXDC) -АВ5 (8) 72.0) ) / (2. GEA) 

PRINT :PRINT "Reponses complexes" 


PRINT "Part reelle = "۶× 
PRINT "Part imaginaire = "iY 
GOTO 1500 


Е=-В/ (2, @#A} 

IF E»-06.0 THEN 1450 

Z=E-SER(D) 

GOTO 14656 

Z=E+SER (D) 

W=C/ (ZA) 

PRINT :PRINT "Reponses reelles" 

PRINT "le reponse = "i 

PRINT "2e reponse = "5 

PRINT "ыы" 

INPUT "POUR CONTINUER SUR i, SINON SUR ð "iL 

IF L=1.@ THEN 1540 

GOTO 259 

PRINT 

GOTO 1320 

PRINT " SYSTEME D'EBUATIONS A 2 INCONNUES" 

PRINT :PRINT " AX + BY = En 

PRINT " CX + DY = F" 

PRINT : INPUT "ENTREZ LES PARAMETRES A,B,C,D,E,F";A5,B,C,D,E,F 
M= (AED) - CBXCD) 

IF M=@.@ THEN 1579 

X-CO XD) - CBXE 0 ) /M 

Y-2CGWFE) -CESC) ) /M 

PRINT :PRINT "SOLUTION "," X = "5X," Y = "рү 

PRINT "жене ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ УЗЕ” 

GOTO 1690 

PRINT :PRINT "IL N EXISTE PAS DE SOLUTION, OU PAS DE SOLUTION UNIQUE" 
PRINT "330000 ]00(0 (0 9 0) 2 3 EAE ЖЕ EER А ЗЕЗЕ REE EER EERE HEHEHE REESE REARS" 
PRINT : INPUT "POUR CONTINUER TAPEZ SUR 1, SINON SUR 9 "3L 
IF L-1.0 THEN 1726 

GOTO 250 

PRINT 

GOTO 1570 

PRINT " NOMBRE PREMIER " 

REM this prngram tests if a number is prime 

REM it continues to cycle until zero is entered 

PRINT :PRINT "ENTREZ LE NOMBRE A TESTER, ZERO FOUR STOPPER" 
INPUT N 

IF N-0.0 THEN 1950 

IF MA o THEN 1910 

1=0.0 

Т-2.0 

J=INT (N/T) 

E-J*T 

IF М-Е THEN 1936 

1=1+1.0 

L=T#T 

IF LAN THEN 1910 

T=(14#2.0)41.0 

GOTO 1850 

PRINT :PRINT "и" EST PREMIER" 

GOTO 1778 

PRINT :PRINT Мр" N'EST PAS PREMIER "313" EST LE PLUS PETIT FACTEUR" 
GOTO 1776 
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